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THESIS  ABSTRACT 


FIDELITY  OPTIMIZATION  OF  MICROPROCESSOR 
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Master  of  Science,  March  19,  1981 
(B.S.,  Georgia  Institute  of  Technology,  1970) 

117  Typed  Pages 
Directed  by  Victor  P.  Nelson 

'The  development  of  a  microprocessor  system  simulation  that  would 
accurately  portray  the  operation  of  the  system  at  a  very  fine  level 
of  detail  was  studied.  This  optimization  in  the  area  of  fidelity  was 
broken  into  three  tasks.  A  preprocessor  program  was  written  to  im¬ 
prove  the  operator  interface  to  an  existing  simulation  driver  program. 
An  existing  microprocessor  simulation,  designed  to  run  under  the  simu¬ 
lation  driver  program,  was  extensively  modified  to  reflect  actual  ma¬ 
chine  level  operations  rather  than  abstract  level  functions.  A  simu¬ 
lation  of  a  programmable  parallel  interface  was  developed  and  mated 
to  the  microprocessor  simulation.  Examples  and  possibilities  for  sys¬ 
tem  level  simulation  are  discussed  and  analyzed.,, 
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I.  INTRODUCTION 


The  work  to  be  described  in  this  thesis  focuses  on  simulation  of 
microprocessor-based  systems,  pursuing  three  related  objectives. 

First,  simulation  routines  must  have  an  efficient  human  interface  to 
allow  effective  interaction  with  the  user  and  efficient  use  of  the 
simulation  capabilities.  Secondly,  the  simulation  program  of  the  tar¬ 
get  machine  should  be  a  highly  faithful  model  of  that  machine,  to 
allow  use  of  the  simulation  results  with  a  minimum  of  corrections  for 
simulator-based  peculiarities.  Finally,  the  target  machine  must  be 
complete  enough  to  accurately  portray  system  operation,  including  in¬ 
put/output  functions. 

Thus,  there  were  three  logically  connected  tasks  to  be  done.  The 
first  task  was  to  develop  a  preprocessor  program  to  increase  the  util¬ 
ity  and  ease  of  operation  of  an  existing  simulator  program,  based  on  a 
hardware  description  language.  The  second  task  was  to  develop  a  mi¬ 
croprocessor  simulation,  avoiding  the  abstract  level  in  favor  of  one 
more  in  line  with  the  actual  operation  of  the  target  machine.  The 
final  task  was  to  develop  the  capability  to  simulate  a  complete  system 
with  input/output  functions. 

The  simulator  program  used  was  the  Computer  Design  Language  Simu¬ 
lator  -  USF  Version  2,  as  run  on  the  computer  system  of  Auburn  Univer¬ 
sity.  This  simulator  program  is  based  on  Computer  Design  Language 
(CDL) ,  a  hardware  description  language  developed  by  Dr.  Yoahan  Chu  of 
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the  University  of  Maryland  (1,2).  Using  an  algebraic  structure,  CDL 
describes  device  operations  at  the  register  transfer  level.  The  main 
advantage  of  the  language  is  this  logical  structure.  Hardware  devices 
are  called  by  commonly  used  names  and  register  transfer  operations  are 
easily  understood.  The  simulator  program  retains  this  clear,  logical 
translation  of  a  hardware  system  into  CDL.  However,  there  are  two 
disadvantages  to  using  the  program.  Initial  program  and  data  load  of 
the  target  machine  must  be  prepared  in  binary  machine  code,  which  can 
be  awkward.  In  addition,  considerable  amount  of  processing  time  is 
necessary,  due  to  the  intensely  iterative  nature  of  the  simulation 
routine. 

The  preprocessor  developed  was  designed  to  remedy  one  of  these 
drawbacks.  The  preprocessor  allows  the  use  of  assembly  language  to 
load  the  target  machine's  simulated  program  space.  This  human  inter¬ 
face  frees  the  user  to  concentrate  on  the  results  of  the  simulation 
rather  than  on  the  mechanics  of  achieving  it.  It  also  provides  a  sim¬ 
ple  set  of  format  and  semantic  checks  to  be  made  on  the  program  to  be 
assembled.  The  prime  requirement  was  to  make  simulation  easier  to 
achieve  and  correct,  thus  more  responsive  to  the  user. 

A  simulation  of  a  microprocessor  was  available  as  a  result  of  an 
earlier  study  (3).  However,  many  of  the  routines  were  written  only  to 
provide  a  correct  output,  without  regard  to  the  mechanism  used.  The 
simulation  was  extensively  modified  to  more  closely  duplicate  the  ac¬ 
tual  operation  of  the  target  machine.  The  functions  of  the  basic  sup¬ 
port  chips  were  defined  more  explicitly.  Using  the  improved  Simula- 
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tion  as  a  basis,  the  functions  of  representative  communications  chips 
were  developed.  The  unique  aspect  of  the  resulting  product  was  its 
ability  to  model  an  integrated  system,  including  input/output  and  in¬ 
terrupt  driven  routines. 

The  body  of  this  paper  will  further  describe  these  three  tasks. 
The  considerations  and  constraints  used  in  the  development  of  the  pre¬ 
processor  are  described  first.  The  next  section  discusses  both  the 
principles  used  to  modify  the  Intel  8080  simulation  for  increased  fi¬ 
delity  and  those  principles  used  to  build  a  parallel  communications 
interface.  The  experimental  results  obtained  from  testing  the  system 
are  then  presented.  The  final  section  contains  the  conclusions  drawn 
from  the  project  and  some  suggested  directions  for  further  work  in 


this  area. 


II.  PREPROCESSOR  DEVELOPMENT 

The  CDL  Simulator  Program  is  designed  for  hardware  simulation  at 
the  register  transfer  level.  At  this  level,  a  processor  operates  by 
logically  decoding  commands  and  data  presented  in  machine  language. 

CDL  is  particularly  efficient  in  expressing  the  decoding  and  execution 
processes.  Although  this  feature  offers  great  flexibility  and  detail 
in  design,  it  becomes  a  drawback  when  simulating  the  execution  of  trail 
programs,  due  to  the  necessity  of  translating  these  programs  into  ma¬ 
chine  language.  The  preprocessor's  major  function  is  to  translate  pro¬ 
grams  written  in  the  assembly  language  of  the  target  machine  into  CDL- 
compatible  machine  code  and  load  them  into  the  assigned  memory  space. 

It  operates  as  an  assembler  and  loader,  with  appropriate  support  func¬ 
tions  such  as  symbol  table  generation.  The  output  of  the  assembler 
routine  is  presented  in  two  forms  for  user  convenience.  The  first  ver¬ 
sion  is  a  line  by  line  translation  of  the  assembly  code.  The  program 
is  displayed  for  analysis  and  correction  of  errors.  The  second  version 
is  the  CDL-compatible  card  image,  displaying  the  machine  code  as  it  is 
presented  to  the  simulation  program.  This  version  is  particularly 
helpful  in  tracing  the  execution  of  the  simulation. 

The  second  design  goal  was  to  provide  the  translation  process  with 
an  adequate  human  interface.  Careful  design  of  the  output,  as  dis¬ 
cussed  above,  was  a  first  step.  Although  the  preprocessor  was  never 
intended  to  be  a  complete  software  development  tool,  routines  were  in- 
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eluded  to  detect  and  flag  the  type  of  errors  likely  to  '.>*  :  :i 

executing  trial  programs  on  a  simulated  machine.  these  nu  lu.ie  '  otlt 
syntax  errors  in  the  structure  of  the  trial  program  and  coding  errors 
within  the  program  itself.  These  routines  are  limited  to  those  that 
would  be  most  useful. 

An  additional  constraint  was  imposed  on  the  preprocessor.  To 
be  compatible  with  the  existing  CDL  simulation  program,  it  has  to  be 
written  in  FORTRAN.  FORTRAN,  however,  lacks  the  bit-level  instruc¬ 
tions  necessary  to  deal  with  character  data.  Following  the  example 
of  the  basic  simulation  program,  the  preprocessor  implements  several 
required  functions  In  IBM  370  assembly  language  subroutines.  While 
there  Is  a  bonus  in  Increased  execution  speed,  program  linkage  and 
integration  posed  significant  problems  during  development. 

The  choice  of  a  target  machine  was  also  an  important  considera¬ 
tion.  Since  the  preprocessor  works  with  assembly  language,  a  target 
machine  had  to  be  chosen  In  order  to  code  the  assembler.  For  maximum 
utility,  the  preprocessor  would  have  to  work  with  a  significant  ma¬ 
chine,  one  having  widespread  use  and  a  need  to  be  simulated.  It  would 
also  have  to  be  one  that  had  information  on  its  internal  operation 
widely  available.  The  choice  for  this  work  was  the  Intel  8080  micro¬ 
processor. 

The  basic  function  of  the  preprocessor  is  that  of  a  standard  two 
pass  assembler  and  loader  (4).  While  FORTRAN  does  not  lend  Itself  to 
the  writing  of  structured  programs,  an  attempt  was  made  to  preserve 
logical  form  In  the  program  (Figure  I).  The  program  has  a  central 
FORTRAN  driver  routine,  ASHINT,  that  performs  initialization,  selects 
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Figure  1.  Preprocessor  Program  Structure 


the  required  language  set,  directs  the  passes  of  the  assembler  and 
outputs  the  final  code,  both  as  hard  copy  and  CDL  compatible  machine 
code  in  the  program  memory  space.  These  major  functions  are  imple¬ 
mented  in  FORTRAN  subroutines,  in  turn  supported  as  necessary  by 
IBM  370  assembly  language  subroutines  (Table  1) .  Assembly  language 
is  used  in  routines  performing  bit  manipulation  and  in  the  routines 
that  are  highly  iterative.  This  structure  supports  the  design  objec¬ 
tives  of  the  preprocessor.  As  part  of  a  time-consuming,  intensely 
iterative  program,  this  segment  has  to  be  relatively  fast  to  avoid 
lengthening  an  already  long  program  in  execution.  To  conserve  mem¬ 
ory  space  and  improve  speed,  it  has  to  be  relatively  small.  To  im¬ 
prove  readability  and  encourage  both  use  and  future  improvements,  it 
has  to  be  relatively  straightforward  and  simple.  The  overall  design 
strategy  was  to  produce  a  limited  implementation  that  stressed  util¬ 
ity  over  optimization.  The  prominent  features  of  the  preprocessor 
are  listed  in  Table  2.  For  a  more  complete  description  of  the  fea¬ 
tures  and  options  of  the  program,  both  the  user’s  manual  and  program 
listing  are  included  in  this  work  as  appendices. 

Integration  of  the  preprocessor  into  the  CDL  simulation  program 
posed  several  problems.  There  was  the  language  problem  described 
earlier  with  the  mating  of  FORTRAN  and  IBM  370  assembly  language.  The 
preprocessor  also  had  to  integrate  with  the  CDL  simulator  in  such  a 
way  as  to  preserve  the  human  interface  and  the  logical  continuity  of 
the  main  program.  The  design  solution  to  this  problem  was  to  have  the 
preprocessor  produce  card  images  of  the  assembled  machine  code  and 
load  them  in  accordance  with  the  procedures  for  loading  CDL  simulator 


First 

AS  MINT 

FORTRAN 

Assembler  driver  routine 

Second 

PASONE 

FORTRAN 

Assembler  first  pass  driver 

PAS TWO 

FORTRAN 

Assembler  second  pass  driver 

IMAGER 

FORTRAN 

Build  card  image  format 

Third 

Utilities 

Character  manipulation  and  assembly 

POPSUB 

FORTRAN 

Pseudo-op  handling 

LODASM 

Assent  ly 

Operation  code  table  loader 

LABLST 

Assembly 

Symbol  table  manager 

PCODE 

Assembly 

Operation  code  table  manager 

STRING 

Assembly 

String  decoder 

OPE RAN 

Assembly 

Operand  numerical  converter 

VALRED 

Assemb ly 

Character  numerical  converter 

Table  1.  Preprocessor  Routine  List 
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Assembler  options 
Language 

Symbol  table  listing 
Location  counter  initialization 


Data  types 

Numerical  (decimal, hexadecimal,  octal,  binary) 

Character  strings 

Expressions 


Pseudo-ops 

Assembler  control  (origin  and  end) 

Data  storage  (byte,  word,  space,  equality) 

Input  Assembly  language  program 

Output 

Assembled  code  listing 
Loader  compatible  card  images 


Table  2.  Prominent  Preprocessor  Features 
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memory  space  from  cards.  This  approach  maintained  the  continuity  of 
the  CDL  simulator  and  relieved  the  necessity  of  creating  an  alternate 
method  of  introducing  data  into  the  assigned  program  memory  space  of 
the  simulator. 

Even  though  a  specific  target  machine  was  chosen,  the  prepro¬ 
cessor  was  designed  to  permit  extension  into  other  languages  to  make 
it  more  versatile.  One  of  the  initial  operator  specifications  is 
the  language  to  be  used  by  the  assembler.  This  specification  controls 
the  operation  code  set  selected  by  the  program.  The  pseudo  operation 
codes  are  indexed  to  allow  multiple  routines  to  be  written  to  accom¬ 
modate  the  different  languages.  Complete  commonality,  of  course,  is 
impossible  to  achieve.  The  IBM  370  assembly  language  subroutines  for 
handling  operands  and  addressing  were  specifically  written  to  generate 
Intel  8080  code.  However,  the  modular  structure  of  the  preprocessor 
would  allow  them  to  be  replaced  with  subroutines  suited  for  the  de¬ 


sired  language. 


III.  FIDELITY  OPTIMIZATION  OF  A  SIMULATION 


One  of  the  most  important  attributes  of  a  hardware  simulator  is 
fidelity,  the  degree  to  which  the  simulation  approximates  reality. 
Optimization  of  fidelity  is  the  process  of  balancing  the  requirements 
of  broad  principles  of  simulation,  alternative  methods  of  representa¬ 
tion  available  in  specific  cases,  and  the  priorities  in  performance 
factors  of  the  simulation  as  a  whole.  The  desired  outcome  is  a  faith¬ 
ful  simulation  that  sacrifices  as  little  as  possible  in  attaining  fi¬ 
delity.  This  chapter  describes  the  optimization  process  as  applied 
to  the  specific  case  of  the  Intel  3080  microprocessor  within  the 
constraints  of  the  CDL  simulator. 

Microprocessor  Simulation 

The  operation  of  the  Intel  8080  CPU  can  be  analyzed  down  to  a 
fine  level.  An  instruction  cycle  is  the  time  it  takes  to  fetch  and 
execute  a  single  instruction.  A  machine  cycle  is  generated  each  time 
a  memory  or  I/O  access  is  made.  This  machine  cycle  can  be  subdivided 
into  separate  states.  In  these  individual  states  the  actual  micro¬ 
operations  of  the  CPU  take  place.  Depending  on  the  number  and  type 
of  microoperations  executed  within  the  machine  cycle,  there  are  three, 
four,  or  five  states  in  that  cycle.  The  number  of  machine  cycles  re¬ 
quired  to  complete  an  instruction  depends  upon  the  number  of  accesses 
to  memory  or  I/O.  All  of  the  8080  instructions  can  be  broken  down  in 
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terms  of  machine  cycles  and  states  (5) .  This  analysis  forms  the  ba¬ 
sis  for  the  reality  that  must  be  simulated. 

There  are,  however,  areas  of  operation  where  certain  assumptions 
must  be  made  to  accommodate  the  hardware  description  language  to  the 
processor.  An  outstanding  example  in  this  project  is  the  use  of  flag 
registers.  The  exact  hardware  logic  used  within  the  microprocessor 
to  initiate  certain  sequences  is  embedded  in  the  control  circuits  de¬ 
signed  by  the  manufacturer.  In  order  to  allow  the  simulated  micropro¬ 
cessor  to  initiate  these  sequences,  nonexistent  hardware  registers 
have  to  be  defined  and  assigned  these  functions.  The  prime  example  in 
the  instruction  execution  portion  of  the  simulation  is  the  register  la¬ 
beled  MREF.  This  flag  is  set  whenever  an  instruction  is  to  be  exe¬ 
cuted  using  a  memory  reference  as  an  assigned  register  operand.  This 
register  may  not  exist  in  the  actual  hardware  or  may  not  be  accessible 
by  the  user.  However,  the  simulator  program  can  read  the  status  of 
this  flag  register  and  use  the  results  to  implement  the  sequence  of 
register  transfers  implemented  in  reality.  The  result  is  increased 
fidelity  of  operation.  Further  use  of  this  technique  is  made  in  the 
implementation  of  control  logic  and  will  be  discussed  more  fully  in 
a  later  section. 

Other  general  concepts  should  be  considered  within  an  improved 
simulation.  The  size  of  the  simulation  must  be  kept  to  a  minimum 
by  avoiding  duplicate  procedures.  Transfer  of  control  between  similar 
operations  is  used  where  practical  to  achieve  this  goal.  In  a  similar 
vein,  the  concept  of  execution  overlap  requires  special  handling.  The 
8080  microprocessor  uses  an  overlap  of  the  final  processes  of  certain 
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Instructions  and  the  fetch  of  the  next  instruction.  This  overlap 
is  used  to  increase  the  execution  speed  of  the  machine.  CDL  can 
directly  support  concurrent  processes  only  in  certain  cases.  In¬ 
clusion  of  the  required  extra  routines  to  achieve  the  overlap  is  not 
justified  by  the  small  return  in  authenticity.  The  originally  over¬ 
lapped  processes  are  generally  included  in  the  last  scheduled  machine 
cycle  of  the  instruction  in  this  simulation.  The  execution  speed  in¬ 
crease  is  thus  preserved  by  performing  the  processes  outside  of  machine 
time  and  the  process  is  transparent,  except  at  the  precise  moment  of 
the  overlap.  In  a  few  cases  the  simulation  could  not  perform  the  re¬ 
quired  functions  in  the  required  time,  even  though  they  were  not  over¬ 
lapped.  In  such  instances,  the  simulation  was  designed  to  come  as 
close  as  possible.  These  instances  simply  represent  the  limits  of  the 
ability  of  the  simulation,  normally  visible  only  at  the  subcycle  level. 

The  process  of  bringing  a  simulation  into  strict  compliance  with 
the  actual  operating  principles  is  best  done  in  several  stages.  A  pro¬ 
gram  had  been  developed  to  simulate  the  Intel  8080  in  a  multiprocess¬ 
ing  environment  (3).  Therefore,  the  program  was  concerned  primarily 
with  the  results  of  program  execution  and  the  transfer  of  control  ra¬ 
ther  than  the  strict  simulation  of  a  microprocessing  system.  It  is 
the  basis  for  the  instruction  execution  routine  portion  of  the  im¬ 
proved  simulation.  Varying  degrees  of  fidelity  required  varying 
approaches.  Some  routines  were  completely  rewritten.  The  HLT  in¬ 
struction  is  one  example  (Figure  2).  The  original  sequence  simply 
disables  the  software  mechanism  used  to  translate  clock  pulses  into 
increasing  machine  cycle  numbers.  The  revised  sequence  recognizes 
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ORIGINAL  VERSION 
Hit 

/M( 1) *T(4) *P ( 1) * READY* IR( 7) 1 *IR(6) /  IF  (OP  1 ( 3) *OP2 (2) *OP3(6) )  THEN 
(READY=0 ,  X=0,  Y= 1)  ELSE  (DO/SEVAL) 

EXPANDED  VERSION 
Hit 

/M( 1) *T( l) *P ( 1)*READY*IR( 7) 1 *IR(6) /  IF  (OPl(3)*OP2(2)*OP3(6))  THEN 
(HLTA= 1 ,  X=0 ,  Y=2)  ELSE  (DO/SEVAL) 

/M(2)*T(l)*P(l) *HLTA* READY/  SYNC=1,  MEMR= I 

/M(2)*T(21*P(1)*HLTA/  WAIT=l,  READY=0 


Figure  2 .  HLT  Command  Routine 
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the  halt,  broadcasts  it  as  the  system  status  and  enters  a  wait  state 
before  disabling  the  software  driver.  The  additional  actions  die  ne¬ 
cessary  to  enable  the  processor  to  communicate  with  other  parts  of 
a  complete  system. 

Some  instructions  were  changed  to  make  more  efficient  use  of  the 
memory  and  I/O  routines  developed  in  the  control  sections.  The  STAX 
and  LDAX  execution  routine  was  expanded  to  include  the  memory  cycle 
that  occurs  and  makes  the  instruction  continue  into  a  second  machine 
cycle.  Several  instructions  were  thus  modified  to  show  single  byte 
I/O  transfer.  Adding  a  cycle  was  generally  done  in  a  straightforward 
manner.  The  single  exception  was  the  immediate  instruction  handler 
(Figure  3).  This  routine  recognizes  the  immediate  instruction  type 
and  fetches  the  required  operand,  using  an  added  memory  cycle.  At 
this  point,  the  machine  cycle  numbers  being  carried  by  the  simulation 
are  incorrect,  even  though  the  elapsed  timing  is  very  close  to  the 
actual.  However,  the  only  alternative  is  to  reproduce  all  of  the  af¬ 
fected  instruction  execution  routines,  changing  only  the  machine  cy¬ 
cle  numbers,  and  then  add  them  to  the  instruction  set.  The  option  that 
was  chosen  was  to  maintain  the  smaller  set  of  routines  and  accept  the 
single  exception  rather  than  to  pay  the  simulation  execution  speed 
penalty  for  redundant  code.  The  simulation  that  results  from  the  sum 
of  all  these  actions  is  a  quite  accurate  model  of  the  Intel  8080  in¬ 
struction  set.  The  next  section  will  discuss  the  development  of  the 
corresponding  control  logic. 
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ORIGINAL  VERSION 

Immediate  Instruction  Handler 

/M( 1) *T(4)*P( 1) *READY*(IR( 7) .ERA. IR(6)) ' *OP3(6) /  ADDBUFFER=PC,  SYNC=1 , 
NWR=  1 ,  DBIN= 1 ,  WAIT= 1 ,  READY=0 

/M( 1) *T(4) *P( 1) *READY*(IR( 7) .ERA. IR(6) ) ' *OP3(6) /  PC=ADDBUFFER. COUNT. , 
TEMP=DATABUFF,  IR(6)=IR(6) ' ,  X=4 

EXPANDED  VERSION 

Immediate  Instruction  Handler 

/M( 1)*T(4) *P( 1) *READY* (IR( 7) .ERA.IR(6)) ' *0P3(6) /  ALATCH=PC,  MR1=1, 

X=0,  Y=2 

/M(2)*T(2)*P(1)*READY*(IR(7) .ERA. IR(6) ) ' *OP3(6) /  MR1=0 

/M(2)*T( 3) *P ( 1) *READY* (IR( 7) . ERA. IR(6) ) ' *OP3(6) /  PC=ALATCH , 
TEMP=DATABUFF,  IR(6)=IR(6) ' ,  X=4 ,  Y=1 

Figure  3.  Immediate  Instruction  Handler  Routine 
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Control  Functions 

The  most  Important  feature  of  faithful  simulation  of  a  micro¬ 
processor  system  is  control  function  implementation.  While  instruc¬ 
tion  set  implementation  is  easily  structured  to  conform  to  the  ac¬ 
tual  CPU  microoperation  sequences,  the  control  sequences  are  the  key 
to  system  level  simulation.  The  control  sequences  must  operate  on 
two  levels.  The  first  level  is  basic  system  control  of  the  CPU  and 
associated  support  modules.  Functions  at  this  level  include  genera¬ 
tion  of  CPU  status  information  and  basic  memory  access.  The  second 
level  of  control  functions  are  those  necessary  to  drive  unique  system 
modules.  A  specific  example  of  this  level  is  a  communications  mod¬ 
ule  used  to  communicate  with  a  system  peripheral. 

CPU  Support  Croup 

The  first  level  of  control  applies  to  the  Intel  8080  CPU  sup¬ 
port  group  of  modules  (Figure  4) .  This  group  includes  the  8080  8-bit 
Microprocessor,  the  8224  Clock  Generator  and  Driver,  and  the  8228  Sys¬ 
tem  Controller  and  Bus  Driver  (6).  The  CPU  itself  has  few  control 
functions  that  are  solely  internal.  One  example  is  the  clock  cycle 
incrementor  function  which  translates  the  incoming  clock  pulses  into 
correct  machine  cycle  and  state  signals.  In  the  simulation  this 
mechanism  also  implements  the  asynchronous  interrupt  function.  The 
other  control  signals  involve  associated  modules.  The  8224  module 
is  actually  not  separately  simulated.  Its  clock  functions  are  impli¬ 
cit  in  the  two  phase  clock  defined  in  the  hardware  section.  Its 
only  other  function,  converting  the  CPU  synchronization  signal  to  a 
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status  strobe  signal.  Is  simulated  separately.  The  bulk  of  the  con¬ 
trol  signals  are  concentratul  ii  the  8228.  Its  major  function  is 
the  broadcast  and  application  of  the  system  status.  Triggered  by 
the  status  strobe,  the  simulation  of  the  8228  latches  the  status 
word  from  the  data  bus  and  combines  elements  of  that  status  word  and 
signals  from  the  CPU  in  a  gating  array  to  generate  memory  and  I/O 
access  signals. 

The  control  function  simulations  are  designed  to  operate  similar 
to  nested  subroutines.  The  normal  memory  routines  activate  selected 
status  word  registers  and  the  synchronization  pulse.  The  synchroniza¬ 
tion  pulse  triggers  the  status  strobe,  which  loads  the  8228  status 
latch  via  the  data  bus.  The  gating  array  activates  the  primary  se¬ 
quences  for  memory  access,  listed  in  the  simulation  as  utility  rou¬ 
tines,  and  deactivates  the  ready  signal,  stopping  the  software  driven 
cycle  clock.  After  the  services  are  performed,  the  ready  signal  is 
reactivated  to  allow  the  clock  cycle  incrementor  to  continue.  This 
action  simulates  the  access  speed  requirements.  In  this  particular 
application,  the  memory  is  assumed  to  be  sufficiently  fast  that  the 
wait  state  need  not  be  entered  during  the  access.  The  machine  cycle 
and  state  numbers  remain  correct.  However,  since  CDL  requires  that  all 
actions  be  driven  by  the  system  clock,  the  two  clock  cycles  needed  to 
complete  the  access  are  counted.  This  fact  affects  any  timing  analy¬ 


sis  interpretation. 


The  module  simulated  for  the  second  layer  of  the  system  Is  the 
Intel  8255  Programmable  Peripheral  Interface  (7).  This  device  uses 
a  system  software  generated  control  word  to  program  the  functional 
characteristics  of  three  eight  bit  ports  to  achieve  a  great  number  of 
input  and  output  configurations.  The  8255  was  chosen  for  its  versa¬ 
tility  in  controlling  parallel  communication.  The  programmable  con¬ 
figuration  feature  makes  it  a  very  flexible  device.  However,  the  CDL 
simulator  driver  cannot  support  an  ambiguously  defined  architecture. 
The  hardware  definition  section  accepts  only  a  single  description  of 
each  part  of  the  system.  Once  the  system  design  has  been  translated 
by  the  simulation  driver,  that  design  remains  fixed  throughout  the 
simulation  run,  restricting  the  utility  of  the  software  driven  func¬ 
tional  control.  Complete  flexibility  could  be  obtained  only  by  in¬ 
cluding  software  instructions  for  every  possible  configuration,  down 
to  a  single  bit  level.  These  instructions  would  have  to  be  evaluated 
on  each  iteration  of  the  simulator  to  cor  .tract  the  correct  interface. 
The  software  overhead  penalty  of  processing  all  the  instructions  for 
the  other  unused  configurations  was  considered  excessive.  Therefore 
a  single  representative  configuration  was  chosen  for  simulation. 

The  chosen  configuration  contains  one  strobed  bi-directional  bus 
and  one  input  port,  both  with  appropriate  handshaking  control  lines 
(Figure  5).  Full  interrupt  and  strobing  capabilities  are  included  in 
the  simulated  logic.  While  software  control  of  the  configuration  is 
not  possible,  the  set/reset  function  of  the  control  lines  is  imple¬ 
mented  to  allow  control  of  the  handshaking  signals.  Appropriate  chip 
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Figure  5.  Simulated  Intel  8255  Configuration 
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select  and  port  select  decoding  logic  is  also  simulated.  Two  rou¬ 
tines  are  added  for  simplicity  in  the  simulation.  The  first  is  an 
initialization  routine  which  establishes  the  starting  states  of  the 
handshaking  lines.  This  routine  shortens  the  simulated  program  by 
removing  some  housekeeping  sequences.  The  second  routine  corresponds 
to  a  switch  setting  that  simulates  input  to  the  8255  by  transferring 
memory  data  to  the  input  port.  This  routine  was  necessary  since  there 
is  no  way  to  input  external  data  to  a  CDL  simulated  machine  during  a 
simulation  run.  Switch  statements,  which  are  internal  to  the  program, 
can  only  simulate  true  external  inputs.  Any  process  must  be  self- 
contained,  as  is  this  one. 

Although  parallel  communication  is  a  fairly  straightforward  re¬ 
gister  transfer  operation,  simulation  of  serial  communication  in  CDL 
is  a  more  complex  task.  The  actual  hardware  simulation  is  relatively 
simple.  Necessary  components  would  include  a  holding  register  for  the 
byte  being  transferred,  a  pointer  to  the  next  bit  to  be  handled,  and 
logic  to  implement  the  necessary  line  protocol.  The  complexity  arises 
in  timing  the  transfer  of  the  inf ormat ion.  As  noted  before,  the  CDL 
simulator  does  not  handle  concurrent  tasking  well.  A  central  clock  is 
defined  which  provides  all  timing  information.  As  in  the  CPU  simula¬ 
tion,  a  software  counter  mechanism  would  be  necessary  to  define  the 
internal  timing  for  the  serial  transfer.  The  hardware  and  software 
constructs  necessary  for  the  serial  interface  would  lengthen  the  sim¬ 
ulation  substantially.  The  simulation  driver  has  a  limit  on  the  amount 
of  hardware  that  it  can  incorporate  into  the  translated  architecture. 
There  is  no  limit  imposed  on  the  software,  but  due  to  the  sequential, 


iterative  nature  of  the  driver,  a  penalty  in  execution  speed  is  paid 
for  each  statement.  These  limitations  did  pot  favor  an  additional 
interface . 

A  second  reason  for  not  implementing  the  serial  interface  was 
evident  from  the  nature  of  its  operation.  For  low  speed  applications, 
at  300  bits  per  second,  the  software  timing  counter  would  need  a 
maximum  count  of  6,600  central  clock  cycles  to  process  a  single  bit. 
High  speed  applications,  typically  2400  bits  per  second,  would  still 
require  around  830  cycles  per  bit.  Based  on  simulation  runs  made  in 
this  project,  such  a  simulation  would  require  in  excess  of  ten  minutes 
of  CPU  time  for  that  single  bit  transfer  at  2400  bits  per  second,  due 
to  the  granularity  of  the  time  base.  The  time  could  be  reduced  by 
simulating  the  serial  interface  separately  from  the  rest  of  the  sys¬ 
tem.  Accomplishing  this  simulation  would  require  that  the  hardware 
design  described  earlier  and  the  appropriate  logic  functions  for  that 
design  be  substituted  for  the  sections  relating  to  the  8255  module. 
This  would  allow  serial  communication  simulation,  but  not  parallel 
communication  simulation.  If  the  two  were  to  be  simulated  together, 
one  way  to  make  the  effort  feasible  in  terms  of  required  CPU  time 
would  be  to  employ  a  separate  clock  with  an  artificially  compressed 
time  base  in  the  serial  communication  simulation  and  manually  correct 
the  timing  later.  For  this  particular  project,  serial  communication 
simulation  did  not  appear  to  be  a  subject  to  pursue. 


IV.  EXPERIMENTAL  RESULTS 


The  first  proof  required  of  any  computer  program  is  whether  or 
noc  it  indeed' does  perform  its  intended  functions.  Demonstrating 
this  fact  for  the  preprocessor  developed  for  this  thesis  actually  in¬ 
volves  two  factors.  The  preprocessor  must  perform  the  functions  of 
an  assembler  and  initiate  the  simulation.  While  doing  this,  it  must 
also  demonstrate  the  fidelity  for  which  it  was  optimized. 

The  initial  pages  of  output  from  a  run  of  the  program  are  pre¬ 
sented  in  Figures  6,  7,  and  8.  The  symbol  table  and  the  assembled 
listing  of  the  program  to  be  simulated  are  presented  in  Figure  6.  The 
loadable  version  of  the  program,  with  associated  location  counter  val¬ 
ues,  is  shown  below  the  listing.  This  simple  program  utilizes  an  in¬ 
terrupt  driven  routine,  triggered  by  the  8255  chip,  to  retrieve  and 
store  an  externally-input  character.  The  main  routine  uses  the  con¬ 
trol  word  function  and  the  output  function  of  the  8255,  as  well  as  pro¬ 
viding  a  main  processing  stream  to  be  interrupted. 

Figures  7  and  8  are  the  initial  sections  of  the  output  from  the 
simulation,  triggered  by  the  preprocessor  after  it  has  loaded  the  as¬ 
sembled  program  into  the  simulated  memory.  The  individual  entries  give 
the  hexadecimal  values  of  selected  registers  during  each  clock  cycle. 
The  changes  in  these  registers,  established  in  the  hardware  definition 
section  of  the  simulator  program,  trace  the  execution  of  the  program. 
The  output  presented  illustrates  the  type  of  information  collected. 
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Due  to  the  extremely  large  amount  of  data  that  is  produced,  only 
these  samples  are  shown. 

As  stated  earlier,  a  measure  of  the  fidelity  of  a  simulation  can 
be  made  using  a  timing  analysis.  Inspection  of  the  microoperation 
sequences  can  show  that  the  individual  operations  correspond  to  the 
target  machine,  but  only  a  timing  analysis  can  demonstrate  the  inte¬ 
gration  of  the  system  as  a  whole.  A  timing  analysis  also  serves  to 
highlight  any  timing  irregularities  inserted  by  the  mechanics  of  the 
simulation.  An  example  of  this  type  of  analysis,  using  the  simulation 
developed  for  this  project,  is  presented  in  Figure  9.  The  figure 
lists  the  assembly  language  program  run  by  the  simulation  and  presents 
an  accounting  and  comparison  of  the  timing  factors. 

The  analysis  illustrates  two  of  the  irregularities  of  the  simula¬ 
tion  that  were  discussed  earlier  in  the  paper.  The  first  is  the  extra 
clock  cycle  added  to  all  immediate  operations,  such  as  MVI  (MoVe  Imme¬ 
diate).  The  alternative  to  this  added  cycle  was  to  create  a  separate 
routine  for  each  immediate  operation,  an  alternative  judged  to  be  far 
less  acceptable.  The  second  factor  shown  is  the  presence  of  two  clock 
cycles  added  to  each  memory  and  I/O  access.  As  explained  earlier,  this 
factor  is  introduced  by  the  software  timing  mechanism.  Even  though 
the  mechanism  is  not  updating  the  machine  cycle  and  state  numbers  dur¬ 
ing  an  access,  the  master  clock  must  continue  to  run  to  provide  exe¬ 
cution  timing.  The  cycle  and  state  numbers  remain  correct,  but  the 
clock  cycle  timing  must  include  a  correction  factor  to  account  for  the 
extra  cycles.  The  analysis  must  also  account  for  program  dependent 
conditions.  The  interrupt  generated  in  the  execution  of  this  program 
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Figure  9.  Timing  Analysis 
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is  handled  by  the  8228  module  as  a  RESTART  7  instruction,  producing 
14  clock  cycles  that  have  no  apparent  source  in  the  program  code.  As 
shown  in  the  figure,  all  of  these  times  may  be  added  together  to  pro¬ 
duce  a  time  estimate,  measured  in  clock  cycles.  This  estimate  agrees 
exactly  with  the  timing  of  the  simulation  run  of  the  program. 


V.  CONCLUSIONS 


The  project  described  in  this  paper  is  mainly  the  proof  of  a 
concept.  The  ability  of  the  CDL  simulator  to  accept  the  integration 
of  a  preprocessor  and  faithfully  simulate  a  microprocessor-based  sys¬ 
tem  is  evaluated  by  attempting  an  implementation  of  those  tasks.  The 
effort  was  directed  at  making  the  implementation  succeed  rather  than 
making  it  highly  practical.  Yet  the  practicality  of  this  simulation 
is  certainly  one  of  its  strongest  assets. 

Certainly,  the  first  candidate  for  application  of  this  package 
is  hardware  simulation,  the  most  common  use  of  simulator  packages. 
Simulation  permits  the  comparison  of  alternate  constructs  at  any  level, 
from  single  devices  to  system  architectures,  to  provide  performance 
data  without  the  investment  and  tine  penalty  of  actual  hardware  con¬ 
struction.  Such  a  process  can  be  used  to  fine  tune  a  system  for  a 
specific  application.  The  simulation  of  software  is  a  less  obvious 
candidate  for  application,  but  the  same  refinement  process  can  be  used 
to  view  program  execution  on  a  time-phased,  register- transfer  level. 
Such  refined  software  would  be  useful  for  the  highly  compact,  intensely 
iterative  programs  normally  stored  in  read-only  memory  for  process  con¬ 
trol  or  communications  handling  devices. 

To  facilitate  application  of  this  simulator,  there  are  several 
improvements  that  can  be  made.  These  improvements  range  in  difficulty 
from  major  revisions  to  relatively  simple  extensions  of  the  existing 
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program.  Language  versatility  is  one  of  the  simple  extensions.  The 
preprocessor,  as  currently  written,  will  service  only  the  Intel  8080 
assembly  language.  However,  the  necessary  mechanisms  for  choice  of  a 
language  set  are  already  included  in  the  preprocessor  program.  The 
alternative  language  would  have  to  be  reduced  to  a  table  format  com¬ 
patible  with  the  preprocessor.  Pseudo-operation  routines  would  have 
to  be  written  and  included  in  the  already  stored  subroutine.  Finally, 
alterations  would  have  to  be  made  to  the  routines  for  operand  inter¬ 
pretation  if  the  conventions  of  the  desired  alternative  differed  sub¬ 
stantially  from  those  of  the  8080  assembly  language.  Due  to  the  in¬ 
creased  storage  requirements  for  these  alternative  user-selected  op¬ 
tions,  the  most  effective  implementat ion  of  these  features  might  be 
to  compile  complete  versions  of  the  simulator  package  for  each  lang¬ 
uage  to  be  used  and  have  them  user-selected  as  a  part  of  basic  program 
selection.  This  method  would  allow  versatility  without  sacrificing 
program  compactness. 

Another  avenue  for  improving  the  simulation  lies  in  that  of  sim¬ 
ulator  expansion.  The  current  version  of  this  program  proves  that 
system  simulation  is  feasibLe.  To  make  the  simulator  more  useful,  a 
library  of  module  and  device  simulation  routines  could  be  developed. 

The  hardware  modules  and  microprocessor  simulations  could  be  selected 
to  produce  the  desired  system  configuration.  Addition  of  an  assembly 
language  program  for  the  target  processor  would  complete  the  system 
simulation,  ready  for  input  in  the  simulator. 

The  greatest  return  in  efficiency  could  be  reaped  after  the  great¬ 
est  effort  in  program  improvement:  restructure.  The  current  program 
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is  time  consuming  not  only  because  it  is  so  intensely  iterative,  but 
because  it  suffers  from  the  time  penalties  imposed  by  its  base  lang¬ 
uage  and  structure.  FORTRAN  shares  the  algebraic  format  of  CDL,  but 
the  deeply  nested  subroutine  calls  and  complex  logic  used  in  the  sim¬ 
ulator  do  not  lend  themselves  to  time-efficient  computation.  The  use 
of  structured  programming  could  help  to  streamline  the  sequence  of 
subprograms  being  called  and  avoid  some  of  the  machine  overhead  in¬ 
volved  in  those  calls,  even  at  the  expense  of  some  redundant  coding  in 
different  routines.  The  use  of  a  structured  language,  such  as  PASCAL, 
could  produce  even  more  comprehensive  changes.  Constructs  such  as 
the  CASE  statement  could  replace  sections  of  decoding  logic  and  dras¬ 
tically  reduce  execution  time  while  improving  program  flow.  The  bit 
manipulation  functions  lacking  in  FORTRAN  could  possibly  be  incorpor¬ 
ated  through  the  alternate  language,  eliminating  the  necessity  for 
sizable  assembly  language  subroutines  to  perform  those  functions.  The 
resulting  program  unification  would  certainly  be  a  significant  achieve 
ment.  A  restructured  program  might  also  be  able  to  handle  concurrent 
processes  with  greater  ease  by  eliminating  the  need  to  evaluate  every 
conditional  microstatement  on  every  iteration  of  the  program.  As 
stated  before,  the  effort  involved  in  a  restructure  is  extensive,  but 
the  resulting  improvements  in  utility  and  computational  speed  would 
be  most  impressive. 

Simulation  is  an  important  tool  in  system  design.  Its  merit  rest 
in  its  ability  to  save  money  and  effort  by  providing  results  of  tests 
on  system  configurations  that  exist  only  on  paper.  The  simulation 
package  developed  in  this  project  attempts  to  combine  the  important 
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user-oriented  features,  high  level  of  detail,  and  easily  interpret¬ 
able  simulation  results.  There  are  ample  opportunities  to  use  the 
system  as  it  exists  and  system  improvements  options  exist  at  various 
levels  of  effort.  The  possibilities  of  microprocessor-based  system 
simulation  are  limited  only  by  the  imagination  and  energy  of  the  user. 
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FOREWARD 


This  manual  is  based  mainly  upon  information  presented  in  the 
original  user's  manual  compiled  by  Terry  Cwik.  The  manual  was  re¬ 
written  and  restructured  to  include  material  on  the  functional  des¬ 
cription  of  the  CDL  simulator  as  well  as  its  syntax  and  to  improve 
the  clarity  of  the  original  manual.  The  user's  manual  for  the  CDL 
simulator  preprocessor  was  also  added. 

Syntax  in  this  manual  is  presented  in  a  standard  notation.  For¬ 
mats  are  presented  on  a  line  separate  from  the  text.  Upper  case 
items  refer  to  entries  which  must  be  made  exactly  as  shown.  Lower 


case  Items  refer  to  types  of  entries  only.  All  delimiters,  such  as 
slashes  and  parentheses,  are  considered  significant  and  required. 
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Introduc  t ion 


Computer  Design  Language  (CDL)  was  originally  designed  by  Dr. 
Yaohan  Chu  in  1965.  It  was  designed  to  represent  the  architecture  and 
operation  of  computer  hardware  at  the  register  transfer  level,  using 
an  algebraic  notation.  The  language  is  versatile  enough  to  serve  two 
major  purposes.  CDL  can  serve  as  a  standard  language  for  defining  the 
structure  of  digital  systems,  especially  in  an  instructional  setting. 
The  language,  used  with  a  simulator  program,  can  also  be  used  in  the 
simulation  of  existing  digital  systems  or  in  the  testing  and  develop¬ 
ment  of  new  systems.  This  handbook  is  intended  as  an  aid  in  using 
CDL  in  this  second  manner,  with  an  incorporated  simulator  program, 

CDL  Structure 

The  CDL  simulator  program  works  in  several  logical  steps.  The 
first  step  is  accomplished  by  the  translator  section.  The  logical 
design  of  the  subject  hardware,  written  in  CDL,  is  read  into  the  host 
computer  as  card  images.  The  translator  converts  the  hardware  design, 
in  the  form  of  declaration  statements,  into  a  form  suitable  for  com¬ 
puter  manipulation,  namely  groups  of  tables  and  a  pseudo  program 
called  the  Polish  string. 

This  information  is  passed  to  the  simulator  section,  composed  of 
five  routines.  The  loader  routine  accepts  programs  and  data  to  be 
loaded  into  the  simulated  memory  or  specified  registers  in  the  design. 
The  simulator  routine  controls  the  execution  of  the  test  program.  The 
switch  routine  incorporates  the  options  of  manual  switch  settings. 

The  output  routine  controls  the  identity  and  frequency  of  output  values 


39 


40 


produced  by  the  simulation.  The  simulation  may  be  reinitialized  for 
another  test  by  the  reset  routine. 

Translator  Section 

The  first  task  in  using  CDL  for  simulation  is  to  specify  the  de¬ 
sign  of  the  selected  logical  circuit  in  CDL  terms.  This  specifica¬ 
tion  normally  occurs  in  two  phases.  In  the  definition  phase,  the  hard¬ 
ware  architecture  of  the  system  is  stated.  In  the  operational  phase, 
the  logical  actions  of  the  system  are  defined  at  the  register  trans¬ 
fer  level.  The  definition  phase  consists  mainly  of  declaration  state¬ 
ments,  defining  the  hardware  elements  as  variables,  so  that  they  can 
be  used  in  expressing  the  operation  phase  statements. 

Declaration  Statements.  These  statements  are  used  to  define  ba¬ 
sic  hardware  units.  The  following  devices  are  defined  in  CDL: 


RECISTER 

SWITCH 

SUBREGISTER 

TERMINAL 

MEMORY 

BLOCK 

DECODER 

CLOCK 

LIGHT 

BUS 

The  first  four  characters  of  each  device  name  are  significant  to  the 
simulator.  The  syntax  of  the  declaration  statement  is 

device  name,  list 

The  device  name  begins  in  column  two  and  the  comma  trailing  the  device 
name  is  required.  The  devices  are  discussed  in  more  detail  below. 
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REGISTER  Declaration.  An  individual  register  is  defined  by  a 
name  and  a  number  in  parentheses.  This  number  defines  the  length  and 
order  of  the  bit  positions.  Default  value  of  the  number  is  a  single 
bit.  Examples  are  presented  in  Figure  A-2. 

SUBREGISTER  Declaration.  This  declaration  identifies  a  section 
of  a  previously  declared  register.  The  declared  register,  followed 
by  the  subregister  name,  is  equated  to  a  certain  string  of  bits  within 
that  register.  Subregister  names  must  be  unique  to  the  four  signifi¬ 
cant  characters,  even  when  referenced  to  different  registers.  Examples 
are  presented  in  Figure  A-l. 

MEMORY  Declaration.  A  memory  is  referenced  by  its  name  and  a 
previously  declared  register  which  will  be  its  address  register.  The 
range  of  the  address  and  the  bit  order  of  the  words  in  the  memory  are 
specified.  Thus, 

MEMORY,  M(R)  =  M(0-99,  7-0) 
defines  a  100  byte  memory  space  named  M. 

DECODER  Declaration.  This  declaration  defines  a  device  which 
equates  each  value  of  the  contents  of  all  or  a  section  of  a  previously 
defined  register  to  a  single  output.  The  decoder's  name  and  range  of 
values  is  equated  to  the  register  or  section  of  a  register.  Examples 
are  presented  in  Figure  A-l. 

CLOCK  Declaration.  A  clock  is  defined  for  the  purpose  of  event 
synchronization.  It  can  only  be  referenced  in  a  label  expression,  to 


be  defined  later.  The  clock  is  defined  by  its  name  and  a  number,  one 
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less  Chan  the  number  of  discrete  timing  levels  desired.  Examples  are 
presented  in  Figure  A-l. 

SWITCH  Declaration.  An  external  switch  condition  can  be  simulated 
by  this  declaration.  It  is  defined  by  the  switch  name  and  possible 
positions,  initial  position  first.  A  maximum  of  ten  switch  positions 
is  permitted.  An  example  of  the  definition  format  would  be 
SWITCH,  STRT  (OFF,  ON),  TEMP  (Tl,  T2,  T3). 

In  use  a  switch  may  be  either  set  or  read.  To  set  a  switch,  the  name 
is  equated  to  the  desired  position,  such  as  STRT  =  ON.  A  switch  is 
read,  giving  a  value  of  1  or  0,  by  citing  the  switch  and  a  position, 
such  as  STRT  (ON). 

TERMINAL  Declaration.  Logical  networks  or  multiple  references 
for  a  single  device  are  handled  by  the  TERMINAL  declaration.  The 
terminal  is  simply  defined  in  terms  of  previously  declared  devices. 

Its  use  may  be  very  similar  to  a  DECODER  declaration.  Examples  are 
presented  in  Figure  A-l. 

LIGHT  Declaration.  Panel  lights  may  be  included  by  using  this 
declaration.  As  in  the  SWITCH  declaration,  the  light  is  named  and 
its  states  given,  initial  state  first. 

LIGHT,  RUN  (OFF,  ON),  PWR  (ON,  OFF) 
is  a  typical  example.  The  set  and  read  options  also  follow  the  form 
of  the  SWITCH. 

BUS  Declaration.  A  bus  is  defined  in  terms  of  its  width  in  lines, 
as  in  BUS,  DATA  (0-7),  ADDR  (0-15). 
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BLOCK  Declaration.  This  construct  is  actually  a  software  mech¬ 
anism,  similar  to  a  subroutine.  The  BLOCK  name  serves  as  a  title  for 
a  group  of  microstatements,  as  defined  below.  The  microstatements  are 
enclosed  in  parentheses,  with  nesting  and  such  options  as  IF,  THEN, 
ELSE  allowed.  This  group  of  statements  is  called  to  be  executed  by  a 
DO  statement,  in  Che  form 

DO/block  name. 

Thus 

BLOCK,  SWAP  (A=B,  B=A) 

would  be  called  by 

DO/ SWAP. 

Micro  Statements 

Once  the  hardware  architecture  has  been  defined,  the  logic  func¬ 
tions  impressed  on  these  elements  are  defined  using  microstatements. 
The  basic  form  of  a  microstatement  is 

variable  =  expression 

An  expression  is  a  group  of  variables  and  their  associated  operators. 

The  standard  operators  listed  in  Table  A-l  are  available  for  use 

in  raicrostatements.  Special  operators  may  be  defined  by  the  user  in 

a  separate  subprogram.  This  subprogram  is  of  the  form 

*OPERATOR,  first  argument , name , second  argument 
//  operations  comprising  the  function  of  the 
operator,  RETURN  END 

Argument  names  must  include  bit  structure  if  over  one  bit.  The  se¬ 
cond  argument  is  necessary  only  for  binary  operators.  The  blank  la¬ 
bel,  //,  will  cause  immediate  execution  of  the  listed  operations  when 
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the  operator  is  invoked  by  its  name.  The  subprogram  is  terminate! 
by  the  RETURN  and  END.  Table  A- 1  also  lists  several  special  operators 
built  into  the  simulation  program. 

Microstateraents  have  several  forms.  An  unconditional  microstate¬ 
ment  is  of  the  form 

variable  =  expression. 

The  effect  of  this  construct  is  to  replace  the  named  variable,  a  stor¬ 
age  element,  with  the  result  of  the  expression.  The  named  variable, 
either  a  device  or  a  part  of  a  device,  must  not  be  replaced  more  than 
once  in  any  set  of  microstatements  to  be  performed  during  a  single 
cycle. 

A  conditional  microstatement  is  of  the  form 

IF  (expression)  THEN  (micros^atements) . 

If  the  expression  contained  in  the  parentheses  following  the  IF  is 
true,  thus  equal  to  1,  then  the  microstatements  following  the  THEN  are 
executed;  otherwise,  they  are  simply  skipped.  This  form  may  be  extended 
to  the  form 

IF  (expression)  THEN  (microstatements)  ELSE  (microstateraents). 
Execution  is  identical  to  the  first  form,  except  that  when  the  expres¬ 
sion  is  false,  the  microstatements  following  the  ELSE  are  executed. 

These  forms  may  be  nested  by  using  the  precedence  rules  of  parentheses. 
This  nesting  capability  can  be  used  to  design  complex  and  powerful  de¬ 
cision  functions. 

Microstatements  are  used  to  build  other  types  of  statements.  The 
switch  statement  has  the  form 


/  switch  name  (position)  /  microstatements. 
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If  the  named  switch  is  in  the  indicated  position,  the  microstate¬ 
ments  are  executed;  otherwise,  they  are  not.  This  construct  sim¬ 
ulates  the  sensing  of  switch  positions. 

The  most  common  statement  in  simulations  is  the  label  statement. 
It  has  the  form 

/  label  /  microstatements 

where  a  label  is  the  logical  AND  of  an  expression  and  a  clock  level. 
The  expression  must  not  include  a  reference  to  a  clock  level.  When 
the  expression  and  the  clock  level  are  both  logically  true,  the  mi¬ 
crostatements  are  executed.  This  construct  simulates  the  execution  of 
time-phased  logic. 

Finally  there  is  the  end  statement.  The  word  END  indicates  the 
physical  end  of  the  statements  defining  a  system  design.  It  termi¬ 
nates  the  translation  process  and  causes  control  to  pass  to  the  simu¬ 
lator  routines. 


Simulator  Section 

Once  the  hardware  and  operational  definitions  have  been  made,  the 
simulator  is  prepared  to  execute  the  test  program.  The  execution 
is  carried  out  in  a  loop  of  processes  called  the  label  cycle.  During 
each  cycle,  four  tasks  are  performed.  First,  if  any  switch  action  is 
designated  to  occur  in  the  current  label  cycle,  the  executable  state¬ 
ments  that  it  activates  will  be  performed.  Secondly,  'all  label  values 
are  evaluated  and  those  with  true  label  expressions  are  noted.  Third, 
the  statements  corresponding  to  the  true  labels  are  executed.  All 
values  resulting  from  these  statements  are  evaluated,  collected,  and 
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then  stored.  Fourth,  it  is  determined  if  the  simulation  should  be 
terminated  at  this  point.  If  not,  the  next  label  cycle  is  begun.  If 
it  is  terminated,  a  RESET  routine  may  be  called  to  begin  another  simu¬ 
lation. 


Syntax 

As  with  all  computer  programs,  there  are  syntax  rules  which  must 
be  obeyed  if  the  program  is  to  function  as  specified.  There  are 
general  syntax  rules  for  the  use  in  all  statements  and  control  cards 
to  direct  the  sequencing  of  the  simulator  program;  the  Job  Control 
cards  necessary  to  run  this  program  will  be  considered  separately. 


General  Syntax 

Variables.  A  variable  must  be  defined  in  a  declaration  statement 
before  it  can  be  used  elsewhere.  A  variable  may  consist  of  one  to 
four  characters.  The  first  character  must  be  alphabetic.  Embedded 
blanks  and  special  characters  other  than 

or  "="  are  simply  ignored  and  dropped.  Longer  variable  names 
may  be  used,  but  the  translator  uses  only  the  first  four  significant 
characters.  Thus  "START  1" ,  "START2",  and  "STAR"  are  all  treated  as 
"STAR"  by  the  simulator.  The  following  words  are  reserved  and  must 
not  be  used  as  variable  names:  IF,  THEN,  ELSE,  DO,  CALL,  RETURN,  and 
END. 


Constants.  Three  forms  of  numerical  constants  are  available  for 
use.  A  hexadecimal  constant,  denoted  by  a  colon  preceding  its  digits, 
is  accepted  up  to  a  maximum  of  eight  digits.  A  binary  constant,  de¬ 


noted  by  a  semicolon  preceding  its  digits,  is  accepted  up  to  a  maximum 
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of  32  digits.  A  decimal  constant,  denoted  by  no  delimiter,  is  ac¬ 
cepted  up  to  a  maximum  of  nine  digits.  Blanks,  special  characters 
other  than  those  listed  above,  and  characters  outside  the  set  permis¬ 
sible  for  the  particular  form  are  ignored  and  dropped. 

Continuations .  Declaration  statements  are  continued  to  subsequent 
cards  by  placing  a  "1"  in  column  one  of  the  subsequent  cards.  Label 
and  Switch  statements  are  continued  to  subsequent  cards  by  leaving 
column  one  blank.  All  statements  are  limi ced  to  250  terms,  where  a 
term  is  considered  to  be  either  a  variable,  a  constant,  or  a  valid 
special  character. 

Comment  Cards.  Placing  a  "C"  in  column  one  will  produce  a  com¬ 
ment  line,  ignored  by  the  translator.  Placing  a  "C"  in  column  one  of 
subsequent  cards  allows  continuation  of  the  comment. 

Card  Format.  Declaration  statements,  labeled  statements,  and 
END  statements  may  be  punched  anywhere  in  columns  two  through  72. 

Column  one  is  used  only  for  comments  and  continuations.  Free  use  of 
blanks  is  permitted  and  is  encouraged  to  promote  readability. 

Control  Cards.  Control  cards  are  used  to  call  the  functional  ele¬ 
ments  of  the  simulation  system  into  action.  These  cards  will  be  dis¬ 
cussed  in  the  order  in  which  they  will  normally  be  encountered. 

Translator.  The  translator  is  called  first  to  translate  the  de¬ 
sign  information  into  a  form  suitable  for  simulation  by  the  program. 

The  first  column  contains  the  control  symbol  followed  by  the 

control  word  TRANSLATE  or  TRANS.  The  translator  will  retain  control 
until  the  next  card  with  the  control  symbol  in  column  one  is  read. 

The  design  deck  must  begin  with  tile  control  card  (MAIN,  where  the  se- 
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condary  control  symbol  appears  in  column  one.  The  design  deck 
is  terminated  using  an  End  card,  with  END  in  columns  one  through  three. 
If  special  operators  are  to  be  defined,  they  are  separated  from  the 
rest  of  the  translation.  The  special  operator  defintions  are  all 
started  with  the  *OPERATOR  card  and  closed  with  the  END  card. 

Simulator.  Control  is  next  passed  to  the  simulator  by  the  $SIMU- 
LATE  card,  with  the  control  symbol  in  the  first  column.  Asterisk  con¬ 
trol  cards  are  used  to  pass  control  between  the  simulator's  five  rou¬ 
tines:  Output,  Switch,  Load,  Simulate,  and  Reset.  Unlike  the  pre¬ 
ceding  example,  END  cards  are  not  necessary  to  separate  sections. 

The  Output  routine  specifies  the  format  of  the  printed  output 
of  the  simulation.  The  format  of  the  control  card  is  as  follows: 
columns  1-7  *OUTPUT 

columns  11-15  CLOCK  or  LABEL 

columns  16-21  (n,m)= 

columns  22-72  list 

The  CLOCK  or  LABEL  designation  controls  whether  data  is  output  on  clock 
cycles  or  label  cycles,  beginning  on  the  nth  cycle  and  repeating 
every  mth  cycle  thereafter.  The  list  following  specifies  the  regis¬ 
ters,  memory  locations,  and  other  devices  whose  value  is  to  be  out¬ 
put  each  time.  Continuation  cards  for  the  list  are  permissible  as 
long  as  column  one  is  left  blank.  All  output  values  are  listed  in 
hexadecimal  format,  regardless  of  input  format. 

The  Switch  routine  allows  the  simulation  of  manual  switch  set¬ 
tings.  A  separate  card  is  necessary  for  each  switch  action.  It  has 


the  following  format: 
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columns  1-7  *SWITCH 

columns  11-12  n, 

column  13  switch  name  =  switch  position 

The  number  n  specifies  the  label  cycle  before  which  the  switch  action 
occurs.  The  switch  name  and  its  position  must  have  been  declared  pre¬ 
viously.  In  the  output,  each  switch  action  will  cause  an  output  with 
a  heading  which  states  that  the  switch  action  has  occurred. 

The  Load  routine  stores  test  programs  and  data  in  memory  and  re¬ 
gisters.  The  *LOAD  card  precedes  the  data  cards.  Data  cards  use  col¬ 
umns  2  through  72,  with  free  use  of  blanks  permitted.  There  are  no 
continuation  cards.  Each  card  must  be  begun  in  column  2  and  be  self- 
sufficient.  A  data  card  may  contain  a  number  of  lists,  separated  by 
commas.  Only  declared  full  registers  and  full  memory  locations  may  be 
loaded.  The  format  for  the  two  types  of  entries  are  different.  Re¬ 
gisters  are  loaded  with  the  format 

"register  name  =  n" , 

where  n  is  the  value  to  be  loaded.  There  are  three  variations  of  the 
format  for  loading  memory  locations.  Single  memory  locations  can  be 
loaded  in  the  form 

M(m)  =  n, 

where  M(m)  denotes  location  m  of  memory  M  and  n  denotes  the  value  to 
be  loaded.  Multiple  consecutive  locations  can  be  loaded  in  the  form 

M(ral-rax)  =  nl,n2, . . . ,nx, 

where  locations  l  through  x  are  loaded  with  values  nl  through  nx.  The 
ending  address  may  also  be  implied  rather  than  stated  in  the  form 

M(ml-)  =  nl,  n2,...,ny, 
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where  consecutive  memory  locations  are  loaded,  beginning  with  ml  and 
continuing  until  y  locations  are  filled.  There  is  a  software  imposed 
limit  of  80  load  entries. 

The  Simulate  routine  initiates  the  actual  simulation  subprogram. 
The  control  card  specifies  the  simulation  termination  parameters.  It 
has  the  following  format: 

columns  1-4  *SIM 

columns  11-  n,m 

The  number  n  specifies  the  maximum  number  of  label  cycles  to  be  gen¬ 
erated.  The  number  m  specifies  the  maximum  number  of  consecutive  la¬ 
bel  cycles  to  be  allowed  without  a  change  in  the  active  labels.  When 
m  label  cycles  have  passed  with  no  changes,  the  simulation  is  auto¬ 
matically  terminated. 

The  Reset  routine  performs  reinitialization  of  the  simulator  sub¬ 
program  to  allow  another  run  of  the  simulator  on  the  same  design.  The 
control  card  has  the  following  format: 

columns  1-6  *RESET 

columns  11-  options 

The  options  are  one  or  more  of  the  following  terms,  separated  by  com¬ 
mas.  CLOCK  resets  the  clock  cycle  only.  CYCLE  resets  the  label 
cycle  counter  and  the  clock  cycle  counter.  OUTPUT  resets  the  previ¬ 
ously  requested  output  parameters,  just  as  SWITCH  resets  the  previ¬ 
ously  requested  manual  switch  operations.  In  both  cases,  another 
*0UTPUT  or  *SWITCH  card  is  expected.  The  next  simulation  will  begin 
with  another  *SIM  card. 
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A  typical  simulation  with  all  internal  control  cards  appears  in 
Figure  A-2,  depicting  a  single  simulation  run.  While  these  internal 
cards  are  uniform,  external  control  cards  are  unique  for  each  site. 
The  job  control  cards  necessary  to  use  the  CDL  program  stored  in  a 
given  system  must  be  obtained. 


c  ••*••*••«**««•*•••••«••••••«•••*••*•«*«••••*•••*•••••«»««**•«« 

e  ••  _ 


C  ••  CM)  Of  TRANSLATION'  BEGIN  SIMULATION 

5  •• 

C  •*»•••••••••••*••*••««*•••«••*«••••••••»••»••••*•*•••»** 

SSINULATE 

•OUTPUT  LABElIl.EI-V.K.A'OATABUf .AOOBUffE*. INEN,  IMT, 

18' PC  *2  ENP *  STA  T 'C  WORD  *C PORT  t APOAT  'INTl'INT2fINTR 

:iSf?iS  fcIBWoS* 

•  SWITCH  75*  INOAT  A*  ON 

•1040 


ASM  8080 

!<i*c 


“.«V 

J4.  INOAT A«0 


aoa o55so 
aooossfco 
aooossTO 


ASSEN8LT  BEGINS  HERE 


STN80L  TA8LC 

SYMBOL  INPUT  VALUE  9038 

SYMBOL  SETUP  VALUE  0109 

Symbol  output  value  olos 

PASS  TWO 


oooo  oo  ct 

0038  32  04 

003A  0|  83 

SSli  03  83 

00*5  08  00 

3§:t  n  h 

004*  C» 


0100  PB 
0101  1C  08 
0103  01  01 

0105  3  A  00  02 

0108  03  00 

0 10A  7* 

0200  C2  00 


SCTUPt 

OUTPUT! 


PROGRAM  STATEMENTS 


X100H  ISTO 

5k 

INTERRUPT  HANDLER  ROUTINE 


I  STORED  DATA 


A.O* 

IKILL  I  NT* 

A'OBM 

SKILL  IBP A 

02OIH 

ISTORE6?! 

OIOOH 

!SiWE 

MAIN  ROUTINE 
A, 08 


INTERRUPT 


UNAB^tJNTEARUPT 

(LOAD  CHARACTER 
tOUTPUT  TO  PORT  A 


ISTOREO  INFO 


m|n  ! * 888T- 38* i8I'i01'l03't}C'!08'!01'!01' 1 08'! 90* 112' I01.I02' if 

MEM  1 iOIO0~)«iP8'l}C'!O8'!Ol'l01'lSA'IOO'!02'lDl>l0O'iT4 
MEM  IlOlOO-UlClMOO 


ENO  OP  OA 


EM 0  OP  ASSEMBLE*  ROUTINE 

19  »» 


Of  oata*8n*!mput 


Figure  A-2 ,  Simulation  with  Control  Cards 


STANDARD  OPERATORS 


SYMBOL 

FUNCTION 

EXAMPLE 

EXPLANATION 

1 

(apostrophe) 

Complement 

A’ 

Logical  NOT  a 

(equal  sign) 

Replace 

A=B 

Contents  of  A  are  replaced  by 
contents  of  B 

(dash) 

Concatenate 

A-B 

Contents  of  A  and  B  are  placed 
side  by  side 

+ 

(plus  sign) 

Logical  OR 

A+B 

Bit  by  bit  OR,  where  A  and  B 
must  be  conformal 

* 

(asterisk) 

Logical  AND 

A*B 

Bit  by  bit  AND,  where  A  and  B 
must  be  conformal 

.EQ. 

Equality 

function 

A .  EQ .  B 

Gives  '1'  if  A  and  B  are  equal, 

'O'  if  not 

-NE. 

Inequality 

function 

A.NE.B  Gives  '1*  if  A  and  B  are  unequal, 

'O’  if  they  are  not 

SPECIAL  OPERATORS 

.ERA. 

Exclusive  OR  A.ERA.B 

Exclusive  OR  of  A  and  B 

-ADD. 

Sum 

A. ADD .  B 

Algebraic  sum  of  A  and  B,  with 
overflow  bit  discarded 

.SUB. 

Difference 

A. SUB  .B 

Algebraic  sum  of  A  and  NOT  B, 
with  overflow  bit  discarded 

•COUNT. 

Increment 

A. COUNT. 

Adds  1  to  A,  with  overflow  bit 
discarded 

.LT. 

Magnitude 

A.LT.B 

Gives  ’1’  if  algebraic  conditions 

•  LE. 

operators 

A.LE.B 

(less  than,  less  or  equal,  greater 

•  GE. 

A.GE.B 

or  equal,  greater  than)  are  met, 

.GT. 

A.GT.B 

'O'  if  they  are  not  met 

Table  A- 1 . 

Standard  and 

Special  Operators 

APPENDIX  A- 1 


CDL  SIMULATOR  PREPROCESSOR 
USER'S  MANUAL 


This  manual  is  designed  to  present  the  rules  and  constructs  governing 
the  operation  of  the  preprocessor  option  of  the  CDL  simulator  program 
Corresponding  information  on  the  features  of  the  simulator  itself  is 
contained  in  the  basic  user's  manual.  Familiarity  with  the  simulator 
is  assumed  for  the  reader  of  this  manual. 
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PREPROCESSOR  USER'S  MANUAL 


Format 

The  standard  unit  of  input  to  the  preprocessor  is  the  card  image. 
The  preprocessor  is  written  in  FORTRAN,  a  language  with  limited  bit 
manipulation  capabilities.  The  card  image,  therefore,  must  be  highly 
structured.  It  consists  of  a  number  of  fields,  some  of  which  are  op¬ 
tional.  Violation  of  the  format  will  result  in  a  printed  error  message 
and  a  termination  of  the  processing  at  the  next  logical  break  point. 

Assembler  Options 

The  first  information  given  to  the  preprocessor  must  be  the  user's 
choice  of  the  available  options.  The  first  card  of  the  load  module 
contains  three  fields.  The  first  field,  columns  2  through  5,  must  con¬ 
tain  the  directive  "ASM"  in  order  to  invoke  the  assembler.  The  second 
field,  columns  6  through  9,  contains  the  assembly  language  option.  The 
original  version  of  the  preprocessor  responds  only  to  the  choice 
"8080"  which  invokes  the  Intel  8080  assemb ly language .  The  growth  op¬ 
tion  to  alternative  languages  is  provided  in  the  preprocessor  code. 

The  third  field,  columns  14  through  17,  is  reserved  for  the  name  of  the 
memory  device  where  the  object  code  is  to  be  stored.  This  device  name 
must  have  been  declared  earlier  in  the  hardware  definition  portion  of 
the  simulation  program.  The  name  may  contain  more  than  four  letters, 
but  as  In  the  CDL  simulator,  only  the  first  four  are  significant. 
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The  second  card  contains  a  single  field,  columns  2  through  5, 
for  the  symbol  table  listing  option.  The  directive  "LIST"  will  cause 
the  symbol  table  to  be  printed  out  at  the  beginning  of  the  assembler 
output.  The  directive  "NOLIST"  will  suppress  the  printing  of  that  ta¬ 
ble.  As  with  the  memory  name  declaration,  only  the  first  four  let¬ 
ters  of  that  directive  are  significant.  This  card  and  the  one  follow¬ 
ing  it  are  designed  as  single  cards  to  provide  for  easy  changes  of 
those  options  that  are  likely  to  be  changed. 

The  third  card  is  the  location  counter  initialization  card.  The 
single  field,  columns  2  through  5,  may  contain  one  of  two  directives. 
"NORG"  specifies  a  location  counter  of  zero.  "ORG="  followed  by  the  ex¬ 
pression  beginning  in  column  6  will  set  the  location  to  the  value  of 
that  expression.  The  expression  is  delimited  by  the  first  blank  en¬ 
countered.  This  card  is  followed  by  the  assembly  language  program. 

Assembly  Language  Program 

The  standard  line  of  the  assembly  language  program  is  of  the  form: 

label:  opcode  operand,  operand  ;  comment 

The  first  field  of  the  card  image  is  the  label  field.  This  optional 
field  begins  in  column  2.  It  may  contain  a  maximum  of  six  alphanumeric 
characters,  the  first  of  which  must  be  alphabetic.  The  field  termi¬ 
nates  with  a  colon. 

The  second  field  is  the  opcode  field.  This  required  field  begins 
in  column  10.  It  contains  a  maximum  of  four  alphabetic  characters, 
terminating  in  a  blank.  The  contents  of  this  field  must  match  the 


mnemonic  opcodes  stored  in  the  assembly  language  table  being  used  by 
the  assembler  or  an  error  will  be  generated. 

The  third  field  is  the  operand  field.  This  field  may  be  required 
based  on  the  requirements  of  the  preceding  opcode.  The  field  may  con¬ 
tain  alphanumeric  characters,  labels,  or  expressions  terminated  by  a 
blank.  There  can  be  no  embedded  blanks.  If  two  operands  are  required, 
they  are  separated  by  a  comma. 

The  fourth  field  is  the  comment  field.  It  begins  immediately  af¬ 
ter  the  blank  terminating  the  operand  field.  If  there  is  no  operand 
present,  it  begins  in  column  22.  While  no  delimiter  is  required  to 
separate  it  from  the  preceding  text,  a  semicolon  is  suggested  to  im¬ 
prove  readability.  The  line  must  end  by  column  72. 

An  entire  line  of  comment  can  be  entered  in  the  place  of  a  line 
of  program  code  by  inserting  an  asterisk  in  column  l.  The  following 
line  receives  no  processing. 

Data  Types 

The  assembler  supports  six  basic  data  types.  The  format  of  each 
is  specified  as  follows. 

Decimal  data.  Each  decimal  number  contains  only  numerics. 
Examples:  14,  17. 

Hexadecimal  data.  Each  hexadecimal  number  must  begin  with  a  nu¬ 
meric  digit  and  must  be  followed  by  the  letter  H.  Examples:  9B7H, 
OAFH. 

Binary  data.  Each  binary  number  must  be  followed  by  the  letter 


B.  Examples:  l 10 1 B ,  011B. 
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Octal  data.  Each  octal  number  must  be  followed  by  the  letter  0. 
Examples:  720,  550. 

Character  data.  Character  data  may  be  introduced,  mainly  via 
the  DB  or  DW  pseudo-ops.  Data  strings  must  be  delimited  at  both  ends 
by  single  quotes.  Further  coding  rules  3re  included  in  the  discus¬ 
sion  of  the  DB  and  DW  directives.  Examples:  'HELLO',  'CHAPTER  2'. 

Expressions.  Only  simple  expressions  involving  addition  and  sub¬ 
traction  are  supported  by  the  assembler.  Mo  leading  minus  signs  or 
embedded  blanks  are  permitted.  Mo  special  delimiters  are  used  for  ex¬ 
pressions,  which  are  terminated  by  the  first  blank  encountered.  Label 
data  may  be  used  in  addition  to  numeric  values.  Numeric  data  alone  is 
considered  as  a  simple  expression.  Examples:  LABEL+3,  14,  SUM-2+TAX. 

Pseudo-ops 

The  assembler,  in  addition  to  machine  operation  codes,  supports 
certain  pseudo-op  codes  or  assembler  directives  which  control  the  as¬ 
sembler  as  it  generates  object  code.  The  mnemonics  for  these  direc¬ 
tive  commands  are  included  in  the  operation  code  table  of  the  prepro¬ 
cessor,  with  a  flag  that  identifies  them  as  pseudo-ops  and  transfers 
control  to  a  routine  performing  the  necessary  functions.  These  func¬ 
tions  are  of  several  types. 

Data  definition.  The  DB  (Define  Byte)  and  DW  (Define  Word)  di¬ 
rectives  define  data  to  be  entered  into  storage  locations.  DB  stores 
data  as  eight  bit  values  in  consecutive  storage  locations.  The  oper¬ 
and  of  this  directive  may  be  either  an  expression  or  a  string  of  char¬ 
acter  data.  The  expression  must  be  able  to  be  represented  by  an  eight 
bit  value.  A  text  string  may  contain  up  to  a  maximum  of  sixteen  char- 
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acCers  and  will  be  stored  as  the  numerical  code  equivalent  of  the  in¬ 
dividual  characters  in  succession.  The  DW  directive  stores  data  as 
a  sixteen  bit  address  in  two  bytes,  least  significant  byte  first.  The 
operand  may  be  either  an  expression  or  a  text  string.  The  expression 
must  be  able  to  be  represented  by  a  sixteen  bit  value.  The  text  string 
may  contain  up  to  sixteen  characters. 

Memory  reservation.  The  DW  (Define  Storage)  directives  reserves 
a  number  of  successive  bytes  for  data  storage.  The  operand  is  an  ex¬ 
pression,  the  value  of  which  determines  the  number  of  bytes  reserved. 
The  contents  of  the  spaces  are  unchanged  by  the  operation  and  are  not 
predictable  without  specific  initialization. 

Assembler  termination.  The  END  directive  identifies  the  end  of 
the  assembly  language  program.  It  causes  each  pass  of  the  assembler 
to  terminate. 

Symbol  definition.  The  EQU  (EQUal)  directive  assigns  a  value  to 
a  label.  The  expression  in  the  operand  field  is  evaluated  and  the  re¬ 
sulting  value  assigned  to  the  label  preceding  the  directive. 

Location  counter  control.  The  ORG  (ORiGin)  directive  sets  the 
location  counter  to  the  value  of  the  expression  in  its  operand  field. 

Output.  The  output  of  the  assembler  is  hexadecimal  object  code 
and  its  associated  hexadecimal  location  counter  for  each  input  line. 

The  output  is  of  the  form: 

location  counter  code  text  of  source  line 
The  symbol  table,  if  requested,  is  presented  prior  to  the  assembled 
output.  The  preprocessor  then  reformats  the  assembler  output  into 
card  images  compatible  with  the  CDI.  simulator  loading  subroutines  and 
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Initiates  the  loading  process.  The  card  image  data  is  loaded  directly 
into  the  simulator's  storage  area  by  the  program.  The  card  image  out¬ 
put  is  also  printed  for  reference. 

Error  Handling 

The  design  philosophy  for  error  handling  in  the  preprocessor  is 
to  process  the  maximum  amount  of  information  possible  in  spite  of  re¬ 
cognized  errors,  without  propagating  those  errors.  Thus  errors  in  the 
assembly  option  cards  normally  cause  termination  of  assembly  after  the 
printing  of  the  appropriate  error  message,  because  the  effects  of  the 
errors  on  subsequent  processing  is  unknown.  The  exception  is  an  option 
with  a  default  value,  such  as  the  listing  and  origin  options,  where 
recovery  is  made  by  assuming  the  default  value.  Within  separate  passes, 
processing  is  controlled  by  an  error  count.  Pass  one  results  are 
printed  and  assembly  terminated  only  if  there  have  been  errors  in  the 
format  of  the  program.  Pass  two  errors  are  generally  syntax  errors, 
which  result  in  the  printing  of  the  appropriate  error  messages  with 
the  output  and  a  termination  of  the  preprocessor  reformatting  and 
loading  sequence.  The  net  effect  of  the  design  philosophy  is  to  flag 
as  many  errors  as  possible  in  a  single  run  of  the  simulator,  thus  mini¬ 
mizing  the  total  number  of  runs  necessary  to  correct  a  program.  This 
efficient  interface  to  the  operator  is  a  visible  benefit  of  the  pre¬ 


processor. 
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APPENDIX  A- 2 
ERROR  CODES 


Errors  encountered  in  generation  or  running  of  the  simulator  are  iden¬ 
tified  by  a  seven  character  code.  This  appendix  lists  these  diagnos¬ 
tic  codes  and  their  associated  meanings. 
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TRANSLATION  ERRORS 


CDL1001 

CDL1002 

CDL1003 

CDL1004 

CDL110I 

CDL1201 

CDL130I 

CDL1302 

CDL1303 

CDL1401 

CDL1402 

CDL1403 

CDL1404 

CDL1501 

CDL1502 

CDL1503 

CDL1504 

CDL1551 

CDL1552 

CDL1553 

CDL160I 

CDL1602 

CDL1603 

CDL170I 

CDL1702 

CDL1801 

CDL1802 

CDLI85I 

CDL1852 

CDL1901 

CDL2001 

CDL210I 

CDL2102 

CDL2103 

CDL2104 

CDL2105 

CDL2201 

CDL2202 

CDL2203 

CDL2301 

CDL2401 

CDL2402 

CDL2501 

CDL2502 

CDL2601 


MISSING  HEADING  STATEMENT 
INVALID  STATEMENT  CONTINUATION 
UNRECOGNIZED  STATEMENT 

EXCESSIVE  STATEMENT  LENGTH  (MORE  THAN  250  TERMS) 

SYNTAX  ERROR  IN  ‘HEADING  STATEMENT 

UNRECOGNIZED  DEVICE  DECLARATION 

MISSING  COMMA  IN  REGISTER  DECLARATION 

INVALID  VARIABLE  NAME  IN  REGISTER  DECLARATION 

INVALID  REGISTER  SIZE  FORMAT 

MISSING  COMMA  IN  SUBREGISTER  DECLARATION 

GENERAL  SYNTAX  ERROR  IN  SUBREGISTER  DECLARATION 

UNDECLARED  OR  INVALID  DEVICE  REFERENCE  IN  SUBREGISTER 

DECLARATION 

INVALID  REFERENCE  REGISTER  BIT  STRING  DEFINITION  IN  SUB¬ 
REGISTER  DECLARATION 
MISSING  COMMA  IN  MEMORY  DECLARATION 
GENERAL  SYNTAX  ERROR  IN  MEMORY 

INVALID  BIT  STRING  DESIGNATION  IN  MEMORY  DECLARATION 
UNDECLARED  REGISTER  OR  INVALID  DEVICE  TYPE  IN  MEMORY 
DECLARATION 

MISSING  COMMA  IN  BUS  DECLARATION 

INVALID  VARIABLE  NAME  IN  BUS  DECLARATION 

INVALID  BUS  SIZE  FORMAT 

MISSING  COMMA  IN  DECODER  DECLARATION 

GENERAL  SYNTAX  ERROR  IN  DECODER  DECLARATION 

UNDECLARED  OR  INVALID  DEVICE  NAME  IN  DECODERDECLARATION 

SYNTAX  ERROR  IN  CLOCK  DECLARATION 

TWO  CLOCK  DECLARATIONS 

MISSING  COMMA  IN  SWITCH  DECLARATION 

SYNTAX  ERROR  IN  SWITCH  DECLARATION 

MISSING  COMMA  IN  LIGHT  DECLARATION 

SYNTAX  ERROR  IN  LIGHT  DECLARATION 

SYNTAX  ERROR  IN  TERMINAL  DECLARATION 

SYNTAX  ERROR  IN  BLOCK  DECLARATION 

SYNTAX  ERROR  IN  'DO'  STATEMENT 

INVALID  OR  UNDECLARED  DEVICE  NAME • 

SYNTAX  ERROR  IN  CONDITIONAL  MICROSTATEMENT 

UNDECLARED  OR  INVALID  DEVICE  REFERENCE  IN  MICROSTATEMENT 

INVALID  USE  OF  CONSTANT 

A  BLANK  LABEL  MAY  APPEAR  ONLY  IN  AN  'OPERATOR1  OR  'SEQUENCE* 
PROGRAM  WITH  ONE  OR  TWO  ARGUMENTS 
SYNTAX  ERROR  IN  LABEL  STATEMENT 

UNDECLARED  OR  INVALID  DEVICE  NAME  IN  LABEL  STATEMENT 

SYNTAX  ERROR  IN  EXPRESSION 

SYNTAX  ERROR  IN  DECODING  EXPRESSION 

INVALID  OR  UNDECLARED  DEVICE  REFERENCE 

INVALID  OR  UNDECLARED  DEVICE  NAME 

SYNTAX  ERROR 

SUBSCRIPT  IS  NOT  A  CONSTANT 
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CDL2602  LENGTH  SPECIFIED  EXCEEDS  72  BITS 

CDL2603  SYNTAX  ERROR  IN  SUBSCRIPT 

SIMULATION  ERRORS 

CDL500I  INVALID  CONTROL  STATEMENT 

STATEMENT  IS  IGNORED,  SIMULATION  CONTINUES 
CDL5I0I  SYNTAX  ERROR  IN  “OUTPUT'  STATEMENT 
CDL5102  INVALID  OR  UNDECLARED  DEVICE  NAME  IN  OUTPUT  LIST 
NAME  IS  IGNORED,  SIMULATION  CONTINUES 
CDL5201  SYNTAX  ERROR  IN  “LOAD1  STATEMENT 

CDL5202  INVALID  OR  UNDECLARED  DEVICE  IN  “LOAD*  STATEMENT 

CDL530I  MAXIMUM  LABEL  CYCLES  TO  BE  SIMULATED  NOT  SPECIFIED 

100  ASSUMED,  SIMULATION  CONTINUES 

CDL5302  LABEL  REPITITION  COUNT  NOT  SPECIFIED  IN  “SIM1  STATEMENT 
3  ASSUMED,  SIMULATION  CONTINUES 
CDL5303  AMBIGUOUS  LABEL  EXPRESSION 

CDL5304  ERROR  IN  MICROSTATEMENT 

CDL5305  ERROR  IN  LABEL  EXPRESSION 

CDL5306  ERROR  IN  SWITCH  LABEL  EXPRESSION 

CDL5401  UNDEFINED  OPERATOR  ENCOUNTERED  DURING  SIMULATION 

CDL5402  VARIABLE  LENGTH  OF  MORE  THAN  64  BITS 

CDL5403  MEMORY  ADDRESSING  ERROR 

CDL5404  INVALID  STORE  REFERENCE  OR  COMPLEMENT 

CDL540S  INVALID  USE  OF  STANDARD  LOGICAL  OPERATOR 

CDL5406  INVALID  OR  UNDEFINED  OPERATOR 

CDL5407  INVALID  USE  OF  SUBSCRIPT 

CDL5408  INVALID  PARALLEL  SEQUENCE  CALL 

CDL5409  INVALID  CONDITIONAL  TRANSFER 

CDL5410  ERROR  IN  SEQUENCE  TRANSLATION 

CDL5501  OPERATOR  LISTED  IS  INVALID 

CDL5601  INVALID  STORE  REFERENCE 

CDL5602  INVALID  OR  EXCESSIVE  LENGTH  OF  VARIABLE  TO  BE  STORED 
CDL5701  SYNTAX  ERROR  IN  ’SWITCH'  STATEMENT 


APPENDIX  B 


SIMULATION  OF  INTEL  8080  MICROPROCESSOR 
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TERMINAL  t 

DECODER, 
SNITCH, 
BLOCK. 


SFLO-AOPOIOI ,SFLt=ADPO( ll.CSLO 
MRL  C*N ION 

CSEMO-  7I-CW0R0I  3-U 
INI Tl  OFF , ONI .INOAT A( OF  F , ON J 
Ilf  (CSETIOli  THEN  iC? 

IF  ( C SET (  III 


AOPG  I  21  »ROLO*N| QR 


SETC 


IF 

IF 

IF 

IF 

IF 

IF 


ICSETmi 
ICSETI  31} 

icsetUii 

ICSEtl 51  I 
I C  SE  T  j  6  I  I 
(CSETt 711 


THEN  icportioi 

THEN  ( C  POR  Till 
THEN  ICPORTI2I 
THEN  CPORTI3I 
THEN  (CPORTUI 
THEN  ICPORTI5I 
THEN  I C POR 1(6) 
THEN  ICPORTIT) 


I. IN  TO  *11 . 
l,IBFB=ll. 
1.INT3*1I. 
l.INTR-ll, 
t » I NT2  - 1 1 » 
I.IBFA*1I , 
*1.1NU*II, 
* l ,ORF  A*  1 1  I 


BLOCK.  RETC  I  IF  ICSETIOtl  THEN  I C POR T 1 01  *  I , I  NT  8*0 1 , 
IF  ICSETI1II  THEN  (CPQRT(ll*0,IBFB*0l. 
F  ( QSET | 2  1 1  THEN  (C PORT ( 2 |*0, I NT3*0 I , 

0, |NTR*0» , 
0, iNT2-0i , 
*0,1 BFA-OT, 
*0, I NTl-OI . 
a.OBFA*Ol > 


ICSETI  II  | 

mm 

(CSET ( 4 
ICSETI 5 
(CSET I  6 
ICSETI 7 


THEN  ( C  POR  Till* 
THEN  C  POR T  I  2 1  * 
THEN  C  POR  T  j  3  1 1 
THEN  C POR  T ( 4  T  > 
THEN  C PORT  ! 5  I » 
JHEN  C  PORT ( 


(CPOA 


\\j\- 


BUS,  NUMBER  I  2-0 1 

MEMORY.  INPUT ( NUMB  I* INPUT  10- 7. 7-01 


•  ** 

•  «* 


CONTROL  FUNCTIONS 

»*♦*• ************** 


•  •• 
»*« 
•  •4 


8080  CONTROL  FUNCTIONS 

/RESET*PIOI/  MLTA*0,NAIT=0,REAOY*WPC*0,X*&,Y*6 

/SYNC*P  C  01  /  0ATA8UF*MEMR-|NP-M|ll  -OUT -ML  T  A-STACR-NMO-  INTA,SIStR*(J, 
SYNC-0 


8228  CONTROL  FUNCTIONS 


/STSTR'PPI 11/  ST  A  T  =  DA  T  *8UF , NMR  =  IDBIN*MEMR1 
NtOR=MOBlN« INPI • ,N10W* ( NNR ' *0U  T I 


,NMW*INMR,•OUT, I 

,nint*iobin*Tntai»,ststr*i 


/NI1I*TI3»»PI 1I*REA0Y*!NTA/  IR*:FF 


it 

»* 
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UTILITY  BOUJINFS 


START  SWITCH  AND  EXTERNAL  INTERRUPT  SWITCH 

/INTSTIONI/  A*0|PFA0Y=l|X*4,Y*6,NW0*l,NWR*I,NMR*r,NMW*l ,NIOR=l ,NI0M*1, 
NINT*I,STSTR*1 
/SU | NT  I  ON  I /  INT-l,SNINT*nFF 

MEMORY  RF  AO  CYCLF 

/DBIN«NMR<*PIO)/  ACMEM^AODBUFFFR 

/OBINtNMR'tp(l)/  OATA0*MEM(AOME),RFAOY*|,DB|N*n,MEMR  =  f)  *  NMR  =  l 
C 
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/Ml  3  MTU  I  »PU  I  *R  E  AOYANR  it  ADD8UFFER  -ALA  TCH, 
SYNC-lf08IN=l.REAOY=OtHFHR=l 
/Hm*TI2l*PU»*R£ADY«MR2/  MR2-0 

WRITE  BYTES  INTO  MEMORY 

/T(tl«P( t l*MWl*R£ADY/  ADOBUF EE R = *1* TCH, I NTFRNAL- 
SYNC-1 ,NWO*0 ,REAOY»0,NWR»0 
/T(2I*PIU«MW1AREA0Y/  MWl-0 


TEMP, 


R2SS  CONTROL  FUNCTIONS 


SWITCHING  OPERATIONS 

/INI TIONl/  ADPOt  2I-1.CPORTI2 I »  1 , CPORTU I  * l  ,CPOR T 1 6> I  *  1 .STB  A- 1 , 
ACKA-l.STBB-lilNIT-OFF 

/Inoat  a i on j/  stba-o.apcrt* inpu( number  I . number* number. count. , 

PORT  101- I NPUI NUMBER  1  ,IN0AT  A-OFF 
RPSET 

/RSET»P( 11/  CHORD- 0, I  NT l  =  0 1 I  NT 2»0, 1  NTS- 0 
STROBE  ACTION 


)/  C  POR  TI4)»0»I3FA=>J,CP0RTI5I*1 
1/  CPOR  TI2I-0.IBFB-1  .CPOR  T 1  1 1  *  l 


/STBA'PPH 

/STBB*«P| li/  l_t-UK  IUI’U.1 
/STBA'«I8EA«P(0»/  ST8A-1 
/STRB'MBFBAPIOI/  STBH-1 
FACKA,-0BFA,*P(0l/  ACKA- t ,CP0« T( 61-0 


INTERRUPT  LOGIC 

/I IBEA»STBA' •INT2«RDL0I»10BFA' •ACKA<*INTl»WRLOI»PI0i /CPORTMI-I, INTR-I 
/IBFB*STBB '*INT3*RDL0»PI 0)/  C  POR T(0I-I»INTR  =  1 
/UNTRHNIBI*PU>/  INT-l 
/IINTR*INT8l*INr*P(1l/  I N TR=0, I N TB-0 


BIT  SET/RFSET  FUNCTION 

/cslo* * i cwor ni  ri‘  i«cwcrO(o)»selo«seli»p(oi/  oo/setC 

/CSLO*  •  I  CWOROI  71  •  l«ICWCR0l  01  •  I  *SF10«  SFH*PI  01  /  00/RETC 
OUTPUT  TO  8255 

/csio'«wRia'*seia*SEti»p<  it/  cworo-oaiab 

/CSLO’ •WRLO,*SEL0**SEL l'»P( 11/  AP0RT-0ATAB 
/CSL0’*H»LO' •SEL0*SE11 **P( l »/  BP0R  T-0A  TAB 
/CSLO*  »WRLC"*SFLO,«SEL  I*P1  11/  C  PCP  T  =  OA  TAB 

INPUT  FROM  B2SS 

/CSLO'^ROLO’  *SEI  0  '*SFL  l ' *P I  1 ) /  OA  TAB-  A  POR  T 
/CSLO' ♦RPIO*  »SF10*SFL  l  •»?!  1 1/  0  A  TAB -B  PORT 
/CSLO*»RPLO'»SFtO**SEL  l»PI  I  »/  OA  TAB-TPORT 
C 

C  INPUT  ANO  OUTPUT  TERMINATION 


uuuojoouu  uou  uuu  uou  oou 


70 


c 

/r si.o’ »pi 01/  ahpoi?i*i 

»*  »* 

*♦  I  N  I  F  L  P0P0  INSTRUCTION  OFT  »• 

♦  •  ** 


AO!  AC!  out  OPT  AN  f  XR|  OR  I  CP!  HVI 


/M(ll*1|41*PIl|'RrAUY*UR(n.|RA.IRUll'*OP3(f,|/  Al  ATCH  =  PC  * 
P°-lrliX-0|Y-? 

/Ml  2 1 »! I  21 «P I l |*R  E  AUY* IIRI  71 .F  RA .1 R( 61  I  •*  CP3I 5) /  MR  1  =  0 
/M  !  2  I  *  T  I3)*P!1  I  *  R  E  AUY» I  1R(  FI  .  IPS.  Id  6)  )  •  *  UP  ?  161/  PC-AI  AICH, 
TEMP • OAT  A PDF , | R I  6  I  =  I R I  6) • , X- A , Y - 1 


RIC  RRC  RAL  PAR 


/Hllj«T!4|APU(*READY»0PH0l«(lPT(71/  X=  0, Y  =  1 

/Ml  l  I*  !  ( ''♦I  »P  (  l  i*RE  A0Y»UP1  |  01  *01’ 2  (  01  *'IP  31  71/  A*A(f>-OI-AI7J.CAFRY*A(71 
/M(1IM(4)*P(1)*READY*(3P  HO  )  »  '  IP  2  I  l  )  *'!p  IUI/  A  A  |  J|  -  A<  7  1  I  ,C  APP  Y  A(  01 
/M(ll*M4l»P(ll»REA!>Y*liPl(0)*UP2l2l*;iP3|7l/  A-AI60)-CARoY,CARRr=A(7l 
/Ml  1  I  *T  (4  I  *P!  I  )  *Rr  Ai)Y«OP  l  (  0IMIP2I  3)  ‘DPT!  71  /  AFAPRY  A(71!,CARRYA10) 

0  A  A  CMA  STC  CMC 


I r  ir.Yii  then 
(  A  (  3  -  01  .C.F.  I  01 


THEN 


/Mill *T I  41 »P| 1 1 *REAOY«OPl ( !!♦ 7P2I 0) *0P  31  71 / 

(  S-A.A00.6. INIc- A.A00.6I  :  I  S  E  lie 
I  A  -  A  *  A  |?[).  6  r  INF  F  -A  .AID.  cl  I 
/HI 1I»T  (  5  I  *P|  l  I  ARE  A  H  Y  •  0  P  l  (!)  *OP2(  OI*OP  31  71  /  r  I  AG  5=1 , X  -  0 , T= 1 , 

IF  tCARRY.FO.il  THEN  (  A- A.  A-'O.  P'  ,  I  NT  r  A.  A  n,.YF,  I  Else 
(IE  (AI7-4t.GF.IO)  THEN  (  A  -  A  .  A  "0  .  f  .  C  A  R  R  Y -|  ,  |  s  I  r  -  a  .  A  on.  Of,  )  t  l  SE 
(IF  (A(  7-4|. FQ. 01  IHFNIIF  (AC  7  0l.Gf.10l  IHFN 
(A-A.AOO.Pft,CARRYM,tN!E-A.AOr.Otllll 
/M|I!’!(4I*P(!I*REAOY»OP!(1I»OP2IO)’»  !P3(  71/  x  =  0 , Y  =  1 
.  II  ARE  AOY*()p  I  (  1)  All  IV!  1  I* HP  31  71  /  A- A  • 


♦Pill  ARE  AOYAOP  |  |  L  I  All  IV  (1  |  A  ;)!’  3  1  71  /  A- A  • 

•PI  1 )*Rfc »  'YA0P1 t I ) A0P2 !2) A  or  3 1 7)/  l A FRY =1 
/Ml  l)MC4)*P(ll*RF  ADY  ♦  OP  1  I  t 1 *0P2 ( 3  I  •  UP  3(71/  CARRY- (AR 


/  M  (  I 
/  M  |  1 


•T  (  4  1 

•ml 


=  Y  • 


ANA  XPA  ORA  CMP 


/M(ii«n4)»p(iiARr.  AprAOPicii/  divot  vai 

/Ml  l  !♦  I  (  01  *p  (  t  1  'Kt  AOY*cni  01  AMRFF  /  XO.Y-2 
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MR  OCR 

/Ml  l  I  »  T I  4  I  *P  llt»RF  APY*  ]P.(  7  I  •»  IRt  .Si  •  *!P3(  41/ 

IF  IUPDI01)  1HEN  IB  R. COUNT., MIC  P. COUNT. I, 

if  (nrnim  then  ic  =  c.U’unt.,  Mit’C. count.  1, 

IF  (nrD(2l)  IHFN  I  D  O.CIIUNT.  .  Ml  r -P.(  HUNT.  |  ,  • 

IF  |  UP  0  (  3  1  j  THEN  (  E*F.  COUNT.  ,  I  NIF=F. COUNT.  i  . 

I  f  (|!P!>(4)i  THEN  (H  =  M.(I'1INT.  ,  MIE  M.i  miNT.  }, 

IF  I  U  P  0 1  5  I  I  THEN  ll=l .ruUNT. , I NIC'I .COUNT. T ,  , 

IF  inrCUII  THEN  (HREF  =1  »  X  =  0  ,  Y  -  2  I  EISF  (X-0,Y=l,rLAGS=t|» 
IF  (OPDIMI  THEN  ( A= A. COUNT. . I NTE  = A.f OUNT. I 
/M<l|*T(4l"P(ll*REApY*IRl7),*[R<6)'*PP.3(5)/ 

IF  inppion  THEN  (R=P.SUP.l, 1NIE  F.MIF.ll, 

IF  I  EIP'H  1  I  I  THEN  IC  =  C-SUB.I,  INir-C.SU?.l  , 

IF  I  OP  f)  I  2  I  j  THIN  10=0. SU3. I, I N1 F  0. SUB. 1  i  , 

IF  ( IIP  I)  4  3)1  THEN  (  E=F.SUB.  I ,  INTE  =  F  .  SUB.  1  I  , 
/MU)*T(4MP(1)*REA0Y*1P(7)'*1R16I,*0P315I/ 

IF  lOT'DUII  THEN  I  H  =  H  .  SUfl  .  1  ,  I  N  T  t  =H  .  SUE  .  t)  . 

IF  (OPOISjj  THEN  I L=L . SUB. 1 , I NIE=I . SUP. I ) , 

IF  I  OP  EM  6  I  [  THEN  MR  E  F  --  1  ,  X  *  0  ,  Y  =  2  )  I  L  St  C  X  -  3  ,  Y  =U  ,  FI  AC  S  *  l  I  , 

IF  I  EiPCM  7  I  I  THEN  I A  =  *  .  SUB.  1  ,  I  NT  F  =  A  .  SUB  .  11 

/Ml  2  I  »  It  2)  »PI  1  I  *«F  A!)Y*  1KI  7  I  •  ♦  t  R(  61  •*  (0P3I4  I  *CP3(  51  1  /  "F.lF«0 

/M(  2  I  *TI  31  »P  (1  I  *RT  ADY*  |R  <  7  i  •*  IRI  6)  (0P3<  4!  *11631  St  I  /  X  0, Y*3, 

IF  l  (IP  3  I  4  I  I  THEN  I  lE“.r  =  OATAPUF. FOUNT.  ) 

USE  (  I  I HP=  PA I &RUF.SUR . 1 )  , MW l  =  1 , A l A ICHMI-L 
/K(3l‘I<3)*r(ll*rpADY*IRI7),*lR<6l*‘IOP3(4)<tJ.~3l5ll/  X=0,Y=I,F|AGS=1 

PUSH  B  PUSH  0  PUSH  H  PUSH  PSM 


/HI  l  I*  I  (  4  I  *P|  1  )*R  E  6DYM0P1 1  6)  «np|  I  7)  )  ‘  I  UP  2(1 )  *  I  »0P  3(  51  /M  4  TCH- SP  .  SUfl.  1  , 
X-0.Y=2,MH1=I,ST4EK=« 

/HI l ) *T I  4 1 *p 11  *R FADY»CPi I  61 »0P2 I  0) *UP3( SI/  1 f  MP  =  B 
/HI  I  )  »  T I  4  I  *P(  1 1  »PF APY*UP  I  I  6)  •  UP2  I  2  1  *  III  3  (  5  I  /  )  I  MP  *D 
/Mll)»l(4|*P(ll»RtAI)Y*(;Pl(  7  I »UP 2  t  0  I • OP  3 ( 5 1 /  II  MP--H 
/Ml  I  1*7  I  4  I  *P(ll  *R  M"Y»ur  1  I  7  J  *.il'2  I  2  I  »  3  I  5  )  /  1  l  Mr  A 

/Ml 2t»T  t  II *P (1)*W!  4UY* (0P1 (M  <UP 1 1  7 1) * ( 0P2I 1  I ’  I *0P3( S l/AE ATCM=  SP.SUR.2t 
X  =  0  ,  Y  =  3  ,  M  n  l  ■=  I 

/H(2l*T(31*P(ll*Rf A  0  Y ♦  i  i  P | I  6 1  *  OP  2 ( 3 )• UP  3 ( S | /  HMP-=C 
/HI  2  I  *  T I  31  *P  (1  |»R  I  At-Y  *  U"  1  I  <|  »UP2  (  ;  |*uP  31  SI  /  I  I  MP=F 

/Ml  21*1  3  I  *PI  I  I  *(•  l  A;  y»UP  1  I  71  *UP  2  (  j  I  *  (  3(51/  1!  MP*t 

/Ml  2  |  *T  I  IT  »P  I  1  I  *R  L  7.  Of  I  OP  1  I  7I*UP2(2|‘UP3(5I/ 

1  r.MP  C  ARRY  -  l  -  PAR  I  I  Y-O-tYI  -  0  /l  RC  -  SIGN 

/HI3  )»T  t  31  *P  (1 1»R  E  A')Y»(UP1  ( 7.1  *DP  U  71  )*  UCP211 1  '  I  »  UP  3t  ST  /  SP  -  SP.  Stl=».  ?, 

X  -o  ,  Y  =  l  , ST AF K=0  , 

PUP  R  POP  0  Clip  I  POP  P  5W 


/Ml  I  )  «  T  14  I  »P  I  1  )  *R  T  A"Y  *  I  OP  H  61  *0P  1 1  7)  I  •  1  'll’ 21  31  "IP  2  (  21  )  •  *  I  I  I  / 

7.1  A  ICH  SR,  X-OtY  =  2  t'-’P  2  ’  I  ,  ST  7  E  K  =  1 

/“I  3  I  *  T  (  I  I  *P  (  I  I  •  R  ‘  AI.Y*  (OP  1  I  I  <  I C  1  I  7  I  I  *  (  0P2  I  H  I  »(.P2  (  2  I  I  •(  P  M  l  I  / 

SP  -  SP  .  a  00.  2  ,  X  0  .  Y  - 1  ,  S  I  A f.  r  =  0 

/Ml  3  I  *  I  (  3)  *P(  1  I  *p  r  A  Y»(IPI  (  6  »  •U'l2(  1)  *.,.31  1)/  r  T  r  •*'>  ,  F  -  PAT  M-lIF, 

/Ml  3  I  •  T  I  3  I  »r  I  1  I  *R  f  A 03  ♦  UP  1  (  M  *IIP2t  2  I  «IJP  31  ||/  r  -  T  >  “P  .  P  NAT  7,‘MJF  , 

/MI3)  *  T  I  3  I  *r  (  t  I  *«  f  APY  ♦  IIP  |  (  7  I  *0P2  131  ♦  (IF-  !(  |  )  /  l  I  |  “P,H  "AlA'-UF, 

/M(  3  )  *1  I  3  I  »  P  I  1  I  «  P(  •  (:P  I  (  7 )  *UP2  I  2  I  »UP  <1  IT  /  A  "ST'.-  i|  un  I  71  , 

PAF ,|  I  Y  1  |  HP  (  ■,  )  ,  (.  Y|  I  I  “  PI  I  I  .  7  i  op  T  t  “PM  I  ,  SI  '  IP'IPII 

C 

F  .  ST  A  I  OA  SHI  O  I  HID 

c 

/Ml  l  I  •  1  I  4  I  •  P  I  IT  *R  I  47)  Y  •  t  P|  I  1  1  *111'  3  I  2  |  /  »  ) ,  y  ,• ,  •  |  A  u  u  i.|  ,  i  f  cr  .  *  2, 


uuu  uuu  Ouu  Uuu 


n 


M  R  2  =  1 

/Mil)  *1  (  3  |  »PI  1  I  »R  FAOY»OPt  (  I  l»<)P2(0  I  ‘17P1I  21/  IISPH  ,41  A  1  CM  HA  1 A 8  -  If  HP, 
X--0,Y-4,MWl=l 

/Ml  3  I  *  T  t  II  »P  II  l*Pl  A  □VOS'  I  (  II  -IIP 2  I  ZI*0P3(?I  /  T(HP*A,X»0,Y-4, 

M.  AJCH=  PAIABUC-  U1P|HWl  =  t 

/HI  4)  *1  (  31  *(M  1  I*REACY»()P7  I  l)»CiP2t2)*OP3l21/  X-  0, Y=  l 

/.“.(  3  )»7  I  3  I  »P|  !  )  ‘P  F  A0Y*1)P1  (  II  *  I  DP  21  1  I  MJP2I  3)1*I1F  3(2)  /  X--0,Y^4 

/H|A)*1lll»IMll*RfADY*OPlCll*IOP2ll>*UP2l3>i«OP3IZI/  X*2. Y*4, 

AOURUrr  CR=DATAOUF-IEMP,  SYNC  =  1 ,  O07N=1  ,HrMR^l  ,Rf  ADY*Q 
/MI4l*ft3l*P|ll*REAOY*OPllll*OP2lol*OP3t27/  1 1  HP *H , A L  A I CM* A L A T . C OUST. , 

X  -o,  Y«  s  “Wl*  l 

/MI4)»Tl3)*Pli)»Rt  A  0  Y  *  I )  P  l ( l ) »OP2  l 1 I • OP  31 21/  X*0. Y=5 

/HI S  > ♦!  I  1 1 *P I  1 ) *P  EADY*0P 1  I  1 )»UP2| 1 |*OP3<  21 /  L‘OATA8UF,X=2,Y=5, 

AD  DRUE  E  CR  =  AODPUE  FEP.  COUNT.  .  SYNC*  1 .  R  t  APY- 0 ,  DR  1  N-- i  ,  HE  HR’  1 
/M(4i*T(31*Ptl)*FI  ADY’OPl  (  1  l*0P2|  3r*UP3(  21  /  A  DA  1  ABUT , X- 0, Y= I 
/M<  51*1  (  3)  »r(  I  l»  READY*  DPI  I  I  7  *0P2  I  0  )  *  l)P  3  I  ?)/  X*0,Y*1 

/HI  St*  7  1  3I*P  I  l  l*R  E  A0Y*t)Pt  t  1  I  »OP2  I  II  *  UP  3  l  2  I  /  H  -  0A  T  A  RUF  ,  X*0,  *T*  1  ‘ 

01  FI  NOP 

/HI  7 J* J(4)*P I  It *RI  AnY»0Pll  7 l*0P2( 2) *0P3l ?| /  1  NT N- 0 , X -0 , Y* 1 
/HU)*MAI»PUI*R(  ADYH.Pl  I  T  i  »IJP2(  3  I  »  UP  3 1  3  1/  I  NEN*  I  ,  X  0,  Y*  I 
/HI  1  7*T  I  4  )  *P  I  I)  *R  t  ADYHjP  I  (  01  *0l’2  I  01  »UP3  I  Ot  /  X  C,Y*l 

PCHl  SPHL  X  7 ML  XCHG 

/HI  l  |*I  (41  *M  I  I ‘READY -OP  I  I  71 ‘OP  21  I  I  ‘IIP  31  1)  /  PC  H  - 1  ,  X  »  0  ,  Y*  t 

/Ml  11*1  I  4)  »P(  l  |  *  R  f  Ai)Y  ♦  UP  1  i  71*  OP  21  31*0  P  31  1  )/  C,PIH  t*  =  3,Y»l 

/HI  I  i»  7  Ui»P  I  l  1 ‘READY*  UP  I  (  T|*0P2(  l  »<jP3(  31/  I'-PiD-H.C-l.  ,1'F  ,  X-0,  T-l 

/Ml  I  )  *1  (4)  *P  I  1  I  *P  l  AIIY‘0Pll  7  )*OP2t  01  HIP  31  3)  /  Al  A  1  CM-  5P  ,  X  -  0  ,  Y  =  2  ,  HR  2  »  J  , 

S  I  A  C  K  -  I 

/HI  3  I  *  T I  3 )»P(  1 ) »RFA0Y*0P1 I 7 7 ‘OP  2 t  Ol*OP3l 31 /  t -  I E  HP , H -  DA t AHUF , 7 FHP  =  H« 

W=l •X=0#Y"4, vHI*l 

/HI  4  I  »rm  *P(  t  I  »ftf  ADY'OPII  7  J*UP2|0)»()P3I  31/  TEMP**,  A|  A  I CH- A IHWJF  .  SUP  .  1  , 
X  *  0. Y*  5 , MW  I  =  1 

/HI  5)  *7  I  1)  »P|  1 1  *R  EAI'Y«0Pt  I  7  I  ‘OP?  I  0  I  »0P3I  3  )  /  X- 0  ,  Y‘  I  ,  5  T  ACK  =  0 
PST 

/HI  |  )♦!  14)  *Pll  I ‘READY*  IR|7)*|R|M»0P3ITI/ 

A I  A  I CM*  SP.SU9. I  I  MW l  =  1  , SI  At K  =  l 
/HI2)*TI3MP|ll»PEAOY*IR|7)‘|R(f.)»UP3l7)/ 

A I  A7CH-AIATCH. 500.1. HW 1^1 
/HI  3I*T  I  31  *  P  I  l  I ‘RE  AOY*  IR  l  7  I  «  I P  I  t,  I  *  DIM  I  71/ 

PC - ;o-50- ;0- ;o - ;0- :0  ■ :o  ;0-:0  ;j 

COT  IN 


X*0, Y*2, IEHP . I  f  I  I  A  8  1, 
X-O.YO,UHP.Pr  I  7-31, 


x-o,Y-i,r.p  '.p.sop. 

!  R  I  S  1  I  R  I  4  1  I  R  I  3  I 


7,SUC*0, 
;  j  :  0  - ;  o 


/“I  1  I  »T  I  4  I  *P  I  1)  *Rt  Al  Y*  IP  H  M  »  I  DP  2  I  21  *l)P/  I  3  MH.P  *1  !  I  /  /I  A  I  CH  PC  , 

PC  PC .C PONT . , X  0, Y- 2. "0 l  =  I 

/hi  3  )  •  1  (  )  I  »  P  |  1  )  •  «  !  Ain  *  t;:>  I  I  >J  |  »l;('2  I  7  1  »  i;IM(  X  )  /  AIN'RiJI  ■  i  F  1 1  HP  ■  I  FHP  ,  OUT*  I  . 

I  V  7  f  -  A  ,  S  YNC  ‘I  ,  R  r  A  0  Y  r  o  ...  m  0  .  N  »P  =  0 

/H|  31  ♦  I  I  I  )  ‘P  I  1  I  *R  r  ANY*  OP  I  I  M  »OP2  (  3  )  ‘DP  3  I  11/  AD'OiUM  <  B  I  1  “  P  -  I  E  H  P  ,  I  N  P  *  1  , 

SYNC  -  I  ?  IN  1  ,  R  A  (;  Y  -  0 

/“  I  3  )  *  I  I  2  I  «  P  I  I  I  I  ANY*  DP  I  ( f>)  •  I  UP  ?  I  2  I  •  OP  2  I  3  1)  •  i  I  It  1|  /  i  ?  ,  Y  *  3 

/“I  •(♦II  3 )  *  ■ '  I  1  I  *  R  1  A  >Y<  :  PI  I  f.  |  *•  ip  2  I  2  |  *  HP  3  I  '  I  /  <  'l.r-| 

/  “I  1 S  •  1  I  !)  I  I  )  *F  1  f.riY  •  I  i’l  I  M  »IIP2  I  3  I  »  UP  3 1  » )  /  *  •  Aiap.nf.x  o.Y-I 

I  NO 

C  *  *  «  ♦ 

C  **  f  VI  (If  I  {.  ANSI  A  f  ?UMf  Rf  GIN  r,  I  Ml /!  A  I  |  f .  N  *♦ 


1 


75 


c  ♦*  ** 

C  ******•*•**»♦•*»*♦*♦*♦•*♦♦♦♦*♦♦*♦♦♦*♦♦♦*♦*»*•*»•»»«»*»»•*»*»*••»»*»* 
t  S 1 “UL  A  T  E 

•DUE  PUT  CARET tl,2l=Y,  X,  A,  DAT  ABUF,  APDBUF  FT  R,  1NEN, I  NT, 

I  R,PC,  II  MP,STAT,CW(JPn,CPORT .  APOB  T,  INI  1  ,  I  NT  ?,  INTR 
•SWITCH  1,INIST=0N 
♦SWITCH  2  ,  I  N  I  T  ~  ON 
♦SWITCH  75, INOATA=ON  ' 

•LOAD 


ASM  BOBO 

MEN 

L  1ST 
NORG 

ow 

OOC  IH 

1 

ISIOREO  DATA 

ORG 

56 

INPUT: 

INTERRUPT 

handler 

ROUTINE 

PUSH 

PSW 

; SA VE  A 

MV  I 

A,  06 

IKILL  I  NT  R  SIGNAL 

OUT 

3 

MV  I 

A,  OBH 

IK  I  L  L*  I  BFA 

OUT 

3 

IN 

0 

IRE  TR I F VE  INPUT  CHARACTER 

STA 

020  IH 

I S I  ORE  IT 

POP 

P  SW 

IRE  ST  ORE  A 

El 

IREENARLE  INTERRUPT 

KET 

IRE  TURN 

(IPG 

OlOOH 

1 

MAIN 

ROUT  t  NE 

SETUP: 

El 

IFNABLE  INTERRUPT 

MV  1 

A,  09 

I  SET  INT2 

OUT 

3 

OUT  PUT  : 

LOA 

0200U 

-.LOAD  CHARAC  T^R 

OUT 

0 

I  OUT  PUT  TO  PORT  A 

HLT 

ORG 

0200H 

DW 

'  00C2H 

•.STORED  INFO 

F  NIT 

PC=!0100 
INPUT!  :OI  =  :C  I 
♦SIM  BOO, 3 


APPENDIX  C 

PREPROCESSOR  FORTRAN  ROUTINES 


nnnnm 
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cccccrccccccccccccccccccccccccccccccccccccccccrccccccccccccccccccccccc 

CCCCCCCCCC  FOB  TRAN  SUBROUTINE.  TITLE  :  ASMINT  CCCCCCCCCCCC 

cccccccccccccccccr.cccccccccccccccccccccccccccccccccccccccccccccccccccc 

DRIVER  ROUTINE  FOR  CPOSS  ASSEMBLER  AND  LOADER  ROUTINES 

SUBROUTINE  ASMINT  I  A,  JN ,  Jt  •  J2  ,  ♦ ) 

INTEGER  H33.H3A, HA5 . HA6 , HA  7 , HAS ,HA9 ,HT 3 
DATA  H  3  3*  H3  A  »  HA  5.  HA6,  HAT,  HAS#  HA9 

C  /3HASN,  3HORG i  AULI S T , AHNONE , AHNORG , AH8080, AH 

r 

f OMNCN  /TABLES/  SUIT, I5> ,SLT 3.15) A, 2501 , CL  1 4 » . 


•  NSU,NSL.NIB,NCL,NP,NST,NSV,NPSAVE,MAXP,P| i) 

INTEGER  SV,SU,SL,CL.P 


COMMON  /WORK/  SVI5000J. 181 250  I , INBl 2501 .NSV.NfT.NTR 

COMMON  /OAT A/ IE, HOI , H02 . H03 ,H0A* H05 , H06 . HOT. HOB , HOT , HIO , Hll ,H12 

1  H21 »H?2 ,H?3 ,H24  »H31  #H32 / HA1 .H A2 , HA3 , H4 A ,H51 , H52 ,H53 

2  H5A,H55,H61 ,H62 .Hi 3 . H64 , HAS , H66, H67, H68 , H69, H70.H 71 

1  ,H72 

1NTFGER  HOI ,H02.H03,H04,H05,H06.HO?.HnR,M09,H10,Hll,H12, 


78 


c 

c 

c 

c 


c 

c 

c 

c 

c 

c 


c 

c 

c 


»  H71 .H22,H23,H24.H3l,H32.H4l,H42,H43,H44,H5t,H52, 

*  H53.H54.H55.H6I , H62 , H63 , H64 , H6 5 . H66 , H67 , H68 , H69, 

*  H70.H7l.H72 

INTEGER  Al  21 1. PTABL El  3001  .STABLE  I  60  I. CODE! 161 .ALINE  I  SOI 

LANGUAGE  OPTIONS 

'  50  WR  ITE  (6.511 
51  FORMAT! •  • ,/l 

100  WR(TEI6,10tl  A 

101  FORMAT ( ■  ,,A1.19A4,A3) 

IF  (AI2l.Nr.H3 3)  GO  TO  2000 
IF  IAI3I.NE.H48I  CO  TO  2500 
IF  I A 1 5 1  .FQ.  H4<?l  GO  TO  2150 
"EMORY  =  A  I  5  1 

OTHER  LANGUAGES  NAY  BE  LOAOE0  8t  tN$ERTING  SELECTION  LOGIC  HERE 
CALL  LOOASMIPTABLE) 

LISTING  OPTIONS 

200  LISTIT= l 
R  E  AH  I  5.2011  A 

201  E0RMATIA1 , 1 9A4 ,A  3 1 
WRITE 
IF  I A 

IF  (AI2I.NF.H46I  GO  TO  300 
LISTIT=0 

ORIGIN  OPTIONS 

100  ICTTUNT^O 

PFAOI 5.201)  A 
WRITEI&.lOl)  A 
IF  (AUJ.EQ.H47T  GO  TO  400 
IF  IAI2J.NE.H34I  GO  TO  4000 
ICRCOO  =  l 

CALL  VALPEO  I AI 31 .NUNVAL, 1ERCC0) 

IF  lIERCnl)  .NE.  01  GO  TO  4500 
LCO'JNT  *  NIIMVAL 

ASSFMBIY  6ijr»CUt1N£S 

400  WR I TE I  6,401  I 

401  F  C  nM  A  T ( *  • . /.25X. *  ASSEMBLY  BEGINS  HERE', Cl 

I E  RCN T  =  0 

CALI  PASONE  (l  CnUNT.PTABLF,  1EPCNT  I 
END  FILE  > 

REWIND  2 


mlOl)  A 

.NE.H45I  GO  TO  3000 


PRINT  SYMBOL  TABLE  IF  DFSIREO 

600  IF  UISTIT  .NE.  II  GO  TO  600 
CALL  PP.  INST  (  GTAOLF  ,  IPO  INT  ,  IERR31 
IF  ((POINT  .EQ.  01  GO  TO  400 
WP1TF  16.601) 

601  TURN AT ( #  •  , / C • 1 5  Y , *  SYMBOl  TABLE  './I 
LIMIT  ,  innlNt  /  4 


onn  ron  nnnno  r>o<-> 
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c 

s 


r. 


00  550  I  =*  I. LIMIT,} 
tl  *  !  *  1 

12  *  I  »  2 

WRITE  16,502)  STABLE!  J • 
502  FORMAT)*  •  .  I0X,'  SYMBOL 
550  CONTINUE 


.  STABLE!  lilt 
%A4,A4,'  VALUE 


STARtEt 
E  *.241 


12) 


WRITE  PASS  ONE  RESULTS  If  PASS  NOT  ERROR  FREE 

600  IF  (lERCNT  .EQ.  0)  GO  TO  700 
WRITE  (6,601) 

601  FORMAT! •  • , / / , 25X , ' PA SS  ONE*,//) 

650  R £ A0( 2  *  660 * E U0*6 80 )  A 

660  FPRMATIA1 ,l9A4.A3) 

WRITE  (6,670)  A 
6  70  FORM  ATI*  • , A  l . 19 A4 , A  3 I 
r, C  TO  6  50 

6R0  WRI TE  l 6,600)  lERCNT 
690  FORM  ATI'  ',5X, 'lERCNT  »  *,141 
GO  TO  5000 


PASS  TWO  PROCESSING 

«25X, 'PASS  TWO') 


700  WR 1 TE  ( 6,701) 

701  FORMAT!'  ',?/,} 

WRITE  (6,702) 

702  FORMAT!'  ',//«lX«'LC',5X, 'CODE* / t40* 'PROGRAM  STATEMENTS'./) 
CALL  PASTWO  (LCOUNT.PtABLE, STABLE, lERCNT, LISTIT) 

ENO  FILE  3 

IF  ( IFRCNT  .EQ.  0)  GO  TO  800 
WRITE  (6,690)  IE«CNT 
GO  TC  5000 

PREPARATION  OF  CARO  IMAGES 

INITIALIZE  FOR  PREPARING  CARO  IMAGES  FOR  LOAD  PROCESS 

BOO  REWINO  2 
REWIND  3 

900  CALL  IMAGER  (MEMORY) 

ENO  F  HE  2 
REWIND  2 

1000  WR ITE  (6,1001) 

1001  POP MAT ( '  ',//) 

SEND  RESULTS  TO  RE  READ  INTO  MEMORY 

CALL  lOOMEM  ( JN , JI , J2 , S 5000) 

WR  I  TE  (  6,  1001 1 
GO  TO  4000 

ERRTR  MESSAGE  ROUTINES 

2000  WR I TE  ( 6.2001 ) 

2001  FORMAT!'  MISSING  ASM  CARO 

on  rn  snoo 


TERMINATING  ASSEMBLY  *•»*»•) 


2500  WR I TE  ( 6,2501) 

2501  F  0  PM  A  T ( 1  «,<*♦«»♦  MISSING  LANGUAGE  ASSICNMFNT  -  TFRMI NAT  I NG  A  SSE  MB 
r  l  v  *«**•>  i 


non 
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50  °FA0( 5,51)  A 

51  fGR*1AnAl, 1045, ATI 

WP I TF I ?,51l  4 

C 

C  PASS  COMMFNT  CAROS  BFMNNING  «I  TH  »  AND  FLAG  0ThF°  NONRL  ANK  FIRST 
r  r.DI  UMMS  AS  FBRn®S 


non  non  onn 


81 


IF  UI11.F0.H03) 
"  4(11.' 


IF  ( 

LA8FL  PROCESSING 


_ ,  -0  to  SO 

NE.H01 1  GO  TO  soo 


100  IF  14121. E0.H49I  GO  TO  200 
IF  141 2 )•  EO . H3 1 1  GO  TC  900 
C4U  LA8L  IN  ( At2l  .IC.tERRII 
IF  (IE'>RI.E0.1)  GO  TO  500 
IF  < 1EBRI.F0.2I  GO  TO  600 


IEBRl.F0.2l 
OPCODE  PROCESSING 
200  IF  I A(4).E0.H49) 


1  GO  TO  TOO 

S,AI4) ,PT ABIE, 11  NCR, I  ERR 21 
l  .OR.  IERR2  • EO .  21  GO  TO  800 


CALL  PCOOE  (PASS 
(F  (1ERR2  .EO. 

IF  ( IEPR2.GE.31  GO  TO  300 
LC*LCHINCR 
GT  TO  50 

PSUEDO-OP  PROCESS ING 

300  CALI  PCPSUBILINCR.PASS,  1 ERR2 , A, LC  ,  I DUMMY, 1 900 1 
IF  (IEPR2  .NE<  01  IERCNT  *  IFRCNT  ♦  I 
GO  TO  50 

ERROP  MESSAGE  ROUTINES 

400  WRITE!  2,401 1 

401  FORMAT!******  COLUMN  1  NOt  BLANK  OR  COMMENT  -  CARD  SKIPPED  *♦•♦•! 
IERCNT»IE»CNT*1 

GO  TO  SO 

500  WRITE  (2,5011  4121, A 131  .... 

501  FORMAT!'*****  LABEL  ',A4,A4,»  NOT  VALID  -  CARO  SKIPPED  **»**'| 
IERCNT  »  IFRCNT  ♦  l 

GO  *0  50 

600  WR I TF  <  2,401  I 

601  FORMAT!'*****  LABEL  TOO  LONG 
IERCNT  «  IERCNT  ♦  1 
GO  TO  200 

TOO  IF  (  4(6)  .EO.  H49)  GO  TO  50 
WRITE  I  2  •  TO  1  1 

701  FORMAT! «»**»•  OPERANDS  APPEAR  WITHOUT  AN  OPCODE 

f.  *  »  •  I 

IERCNT  *  IERCTN  ♦  1 
GO  TO  SO 

BOO  W»  ITE  (2,801)  4(41 
ROl  F*IPMAT  ( '  *****  OPCODE 
C  «»*•*• ) 

IFRCNT  *  IERCNT  ♦  1 
GO  TO  SO 


TRUNCATED  TO  SIX  PLACES 


CARD  SKIPPED 


' , 44 , •  INVALID  OR  NOT  FOUND  -  CARO  TFRMINATEO 


900  PE  ItJON 
FHO 

rcrccccccr.crrr.r.Lcr.cccrrccrr  rccccrcrrcccrcrccccccccccrccccccccrcrcccccc 


or»r>  non  orto  non  non  n  on  ooi 


82 


CCCCCCCCCC  iuonujiine,  line  =  i-n-biwu  miiv.i.i.ii.'.v.'. 

cccr.ccccrr.cr.ccr.ccr.r.cccccccccccccccrcf.ccccccccccccccccccccccccccccccccc 


FQRTPAN  SUBRCUT  1NE  ,  TITLE  :  PASTWO  CCCCCCCCCCCCCCCC 


SUBROUTINE  PASTHO  (  LCGUNT ,  PT  ABLE .  ST  A8L  E .  TERCNT ,  L  1  S  T !  T  > 


INTEGER  HO 3 
DATA  H03/1H*/ 

INTEGER  PASS,  At  21 J  ,P  T  ABLE  t  300)  ,  STABLE  t  60)  ,  CODE  I  l  A)  .0PER1.0PER2 

INITIAL  I/ATfON 

PASS  =  2 
LC  =  L COUNT 
00  10  I  -1,16 
CODE  I  I  1*0 
10  CONTINUE 

READ  CARO  INAGE  FROM  0 1 SR 

50  READ  t  2,5t»  4 

51  FORMAT! At , 19A4.431 
IF  t  At  II  .NE.  H03I  GO  TO  100 
NRTTES  =  0 
GO  TO  700 

OPCODE  PROCESSING 

100  CALL  PCOOE  IPASS.AtAJ , PTA8LE . I t NC R . I ERR2, MOO. OPER 1 , 0PER2 , NUMCOOI 


100  CALL  PCOOE  IP  ASS , At 41 .PTA8LE . I (NCR . I ERRZ.HOO.OPER 1 ,0PER2 ,NU" 
IF  1 1  ERR  2  .EQ.  I  -OR.  1ERR2  .EO.  2)  GO  TO  1000 
IF  1 1 ERR2  -GE-  31  GO  TO  400 
NRTTES  =  L  I  NCR 
200  COOEI II  «  NUMCOO 

IF  (flPFPI  -EO.  01  GO  TO  600 

OPERAND  PROCESSING 

300  CALL  OPEPAN  (MOD , A ! 6 1 .CPER l, t ERC00.0PER2 ,NVAL 1 , NVAL 2, NVAl 3 1 
IF  IIEWCOO  . EO.  Il  GO  TO  2000 
IF  IIERCOD  .EO.  21  GO  TO  3000 
IF  ( MOO  .EO.  01  GO  TO  350 
CODE!  II  *  C0I1EI  l  I  ♦  NVAL  1 
IF  (MOO  ,NE.  5  GO  TO  325 

r.noEt  n  »  conei  u  ♦  nval2 
on  tq  600 

325  C0DEt2)  »  NVAL? 

IF  I0PER2  .NE.  5|  GO  TO  600 
COOEtTI  -«  NVAL  3 
GO  TO  600 

350  COnH  2)  =  NVAL  I 

IF  tOPEPl  .NE.  51  GO  TO  600 
COUEI 3)  *  NVAL? 

GO  r0  400 

»SUEOO(.’P  PROFESSING 

400  CALL  PUPSUn  (L INCP, PASS, TE»R7, A, LC, CODE. S 7000) 

IF  I I£P“2  .EG.  1 )  GO  ID  4000 


nno  non  non  Nnon  non  non 
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IF  (IFOR?  .£0. 
IF  ( I  ERR?  .EQ. 
NBTTLS  -  LINCR 


?J  GO  10  5000 
1)  GO  10  6000 


WRITE  1C  ANO  C 006  1NFCR  TO  TAPE  FOR  LOA0  TO  MEMORY 

600  IF  (MBYTES  .E0.  0)  GO  TO  700 
WRITt  11,610)  MBYTES, LC.rOOE 
610  FORMAT!/?, 76,1672) 

IF  LIST  IS  DESIRED,  PRINT  OUT  LC,  CODE.  AND  LINE 

700  IF  (LISTIT  .60.  0)  GO  TO  SO 
IF  (MBYTES  . NE .  0)  GO  TO  800 

PRINT  LINE  ONLY  FOR  COMMENTS  ANO  7ERO  LENGTH  PSUEDO-OPS 

705  WR  ITE  (6,  7101  A 
710  FORM  ATI*  •  , T 25 , Al , 1  a A 4 , A3 1 
GO  TO  50 
800  MBYTES  ’  0 

IF  INBYTFS  .L£.  3)  GO  TO  810 
MBYTES  -  MBYTES 
MBYTES  =  1 

PRINT  LINF  ANO  CODE  FOR  NORMAL  OP  COOES 

810  WRITE  16.811)  LC,(C006( 1 1  ,t*t, MBYTES) 

811  FORMAT!  *  *  ,76,  31  ?X,  72  1  I 
WR  ITE  (6,812)  A 

812  FORMAT! '♦*, T25.A1. 19A6, A3) 

IF  (MBYTES  .EQ.  0)  GO  TO  900 

PRINT  CONTINUED  LINES  FOR  BYTE  A,.D  WORD  INFORMATION 

WRITE  (6,8131  (COOFIII, 

813  FORMAT!  •  •  ,  TR ,  13(22,2711 
BOO  LC  =  LC  ♦  L (NCR 

GO  TO  50 

ERROR  MESSAGES 

1000  WR I TE  ( 6, 710)  A 
WP  ITE  (6,1001)  A  (  A  ) 

1001  FURMAT(<  •,•♦*•«»  OPCODE 
C A  TED  »*«»»•) 

IERCNT  =  IE®CNT  ♦  l 
LC  »  LC  »  LINCR 
00  TO  50 
C 

2000  WP  (  TF  I  6,  7101  A 
WR  I  TE  I  6,20011 

200 1  FORMAT ( '  • , • *••«* 

I 

)C»f.NT  *  (EPCNT  ♦ 

LC  -  1C  ♦  LI  NCR 
GO  TP  50 


t’A, MBYTES) 


•  ,  A A i '  INVALID  CR  NOT  FOUND 


INVAI.  (0  OPERANO  ENCOUNTERED  -  CARD 


l 


C 

1000  WH  I  TF  I  6,  MO  !  A 
WP  T  TF  (  6,  inn  |  ) 


CARO  TERMIN 


TERMINATED  * 


oor»  non  ooo  no 
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1001  EDR-IAM*  OVERLONG  OPERAND  ENCOUNTERED  -  CARD  TERMINATED 

r****»’ I 

IERCNT  =  1ERCNT  ♦  l 
LC  *  LC  ♦  L 1  NCR 
GO  TO  50 
C 

4000  WRITE  (6,7101  A 
WRITE  (6,4001) 

4001  F ORMA T  |  •  •,■*»♦*«  INVAL 10  OPERAND  -  NOT  PROCESSED  •*»***) 
lERCNr  =  IERCNT  »  1 

LC  »  1C  ♦  L I  NCR 
GO  rn  50 

c 

5000  WR I TE  (6,710)  A 
WRITE  (  6,50011 

5001  FORMAT! *  *.**«*•*  OVERLONG  OPERAND  -  NOT  PROCESSED  ****»•) 

IERCNT  =  IERCNT  ♦  I 

LC  *  LC  ♦  l  I  NCR 
GO  TO  50 
C 

6000  WR  ITE  (  &,  710)  A 
WRITE  i 6,6001) 

6001  FORMAT!*  '.«»♦•*♦  LANGUAGE  DR  I  ERR?  ERROR  IN  POPSUB  ♦•**♦•) 

IERCNT  »  IERCNT  »  l 

LC  =  LC  ♦  LlNCR 
GO  TO  50 
C 

£  ROUTINE  EXIT 

7000  IF  (LlSTIT  .EQ.  01  GO  TO  70t0 
WRITE  (6.710)  A 
7010  RE  TURN 

cNU  1 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCC  FORTRAN  SUBROUTINE.  TITLE  »  POPSUB  CCCCCCCCCCCCCC 

^CCCCCCCrCCCCCCCCCCCCCCCCCCCCCCCCtCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

SUBROUTINE  POPSUB  I  L I  NCR  ,  PAS  S » I ERRZ ,  A  ,  LC  .CODE ,  •  I 


NOT  PROCESSFO  •*»»**) 


INTEGER  AI21), PASS, CODE! 161 

USE  LlNCR  ir  IOCNTIFV  LANGUAGE 

l  IF  (LINCP.NE.il  GO  TO  1700 
IF  (PASS. TO, 7)  GO  TO  ROO 

00  PROCESSING 

100  IF  ( IERD?.NE.31  GO  TO  700 
I  TYPE  *  1 

CALL  STRING  ( l T YPE, P A S S , 4 ( 6  I , NUMOPS . I E" COD ) 

IF  (  I F RCOO.FQ. I  I  GO  TO  1 500 

IE  (  [FPCUn.E0.7l  GO  TO  160(1 

I Ep R 7  -  0 

LC  =  I.C*  NUMOPS 

°r  tijpn 

ns  opocrssfMG 
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c 

c 

c 


c 

c 

c 


r. 

c 

r 


c 

i 


c 

c 

c 


200  IF  <!FRR2,NE.4)  GO  TO  100 

teocno  =  i 

CALL  VALREO  I  A  1  6 )  , NUM VAL  ,  l  C.RCOO  I 

If  I  l  E°  COO.  EQ.  i  I  GO  TO  1500 

IF  UcecUO.Ea.2)  GO  TO  1600 

IE»R2  ’  0 

LC  =  LC  »  nunval 

RETURN 

OW  PROCESSING 

100  IF  IIERR2.NE.5I  GO  TO  400 
UYPF  =  2 

CALL  STRING  U TYPE, PASS, 416), NUMQPS. !E«COD) 
IF  IfERCOO.EQ.l)  GO  TO  1500 
IF  (IERCOO. EQ. 2)  GO  TO  1600 
I  ERR?  =■  0 

LC  *  LC  ♦  (NUMOPS  *2) 

RETURN 

END  PROCESSING,  ENOING  P4SS  ONE 

400  IF  IIERR2.NE.6)  GO  TO  500 
PE  TURN! 

EQU  PROCESSING 

500  If  (IERR2.NE.TI  GO  TO  600 
IERCOO  =  1 

till  VALREO  (4161 , NUMVAL , tERCOOl 
IF  t IERCOO. 60. II  GO  TO  1500 
IF  I  I ERCC0.E0.2)  GO  TO  1600 
CALL  LAflFIX  T AT  2 J ,NU* VAC , t ERCCO) 

IF  UERCOD.EQ.I!  GO  TO  1500 
IE  I IFPC00.EQ.2)  GO  TC  1600 
I  ERR  2  -  0 
RETURN 

OPO  PROCFSSING 

600  IE  I  IERR2.NE.fl)  GO  TO  700 
IERCOO  -  1 

CALL  VALREO  (A(6),NUMVAL, IERCOO ) 

IF  I  1ERCC0.EQ.U  GO  TC  1500 
IF  I  ICR  COO. EO. 2)  GO  TO  1600 
IE =  0 
LC  =  NUMVAL 
R  E  TUPN 

R  ST  Poor  E  5  S 1 NG 


TOO  IF  I  1 F° R 2  ,NE.  0)  GO  TO  ITOO 
ICRCrO  *  l 

CALL  V AL 0  FO  t A( 61 .NUNVAL ,  IERCOO) 
(F  UFRCOO.EQ.il  GO  TO  1500 
If  I IFR'OO.EI.7)  GO  TO  1660 
I F  RR  2  ■*  0 
LC  *  I  r  *  1 
RF  Tl|PN 


AD-A104  679  AIR  FORCE  INST  OF  TECH  WRI6HT-PATTERS0N  AF0  OH  F/8 

fidelity  OPTIMIZATION  OF  MICROPROCESSOR  SYSTEM  SIMULATIONS#  <U) 
MAR  01  E  T  LANDRUM 

UNCLASSIFIED  AFIT-CI-81-3T  NL 


no  nnn  non  non  non  non  on  no  non 


PASS  TWO  ROUTINES 


OB  PROCESSING 

800  IF  (IFR92  .NE.  31  GO  TO  000 
ITVPE  *  l 

CALL  STRING  UTVRE, PASS, AI6J,NUN0PS, IERCOO, C00EI 

1E»R2  =  IERC00 

IF  HERR?  .GT.  01  RETURN 

L  I  NCR  =  NUNOPS 

RETURN 


OS  PROCESSING  ' 

000  IF  IIERP2.NF.4)  GO  TO  1000 
IFRC0D  =■  I 

CALI  V At Rc0  ( A (6 ) , NUMVAL , IERCOO? 

IEPRZ  «  IERCC0 

IF  (  IERR2  .GT.  01  RETURN 

l  I  NCR  -  NUMVAL 

RETURN 

OM  PROCESSING 

1000  IF  (IERP2.NE.51  GO  TO  U00 
ITVPE  -  2 

CALL  STRING  ItTYPE,  PASS.  AI6»  »NUN0«  .  1ERC0D.  CODE! 
IFRR2  -  IERCOD  . 

IF  | I FRR 2  .GT.  Ol  RETURN 
L I  NCR  -  NUHOPS  •  2 
RFTURN 

ENO  PROCESSING,  ENO  OF  PASS  T«J 

1100  IF  IIERR2.NE.6l  GO  TO  1-200 
LI  NCR  *  0 
RFTURN1 

EQU  PROCESSING 

1200  IF  (IEPOZ.NE.T1  GO  TO  1300 
LI  NCR  =  0 
I  ERR  2  *  0 
.  RETURN 

ORG  PROCESSING 

1300  IF  1 1  ERR2.NE.  81  GO  TO  1400 
ILPCOO  =  1 

CALL  VAIPFD  (AIM,  NUNV  AL  »  IERCOO  I 

IE°P2  »  IERCOO 

IF  |  |  FR  R  2  .GT.  01  RETURN 

LI  NCR  =  0 

Lr  =  NUMVAL 

offllPN 


rst  pprrpc<!NC 
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88 


c 

r 


c 

c 

c 


c 

s 

c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 


READ  l  INS  OF  COOF 

10  READ  1  3,20,£Nn=600)  NBYTES.LC.CODF 
20  FORMAT(22,24,16Z2> 
l  *  0 

IF  (K  .FO.  14)  NEWL  t  N  ■  1 
IF  (NEWLIN  .EO.  0)  GO  TO  300 

WRITF  FINISHED  U NE  4N0  CREATE  NEW  LINE  HEADING 

IDO  IF  ((FIRST  .CO.  11  GO  10  150 
MAX  »  M  -  I 

WRITE  (2.110)  (AL1NEUJ,  f’t.NAX) 

110  FORMAT  141, A4.2A1 ,2  6,441  ,22,13(241  ,221 1 
150  (FIRST  =  0 

■■  (l SPLIT  . FO.  II  1C  »  LC1 


TsF 


1  SPLIT 
LC1  »  LC 
X  *  0 
N  *  9 

200  41  iNE  ( 1 1 


_ _ ,  HOI 

AL INE I  2  )  -  MEMORY 


AL  INE I  3) 

4L  I  NE  I  4  I  « 

alineis)  - 

AL  !  NF  (  6 1  » 
AL INE I T  }  - 
AL  INE  i  8  I  ’ 
(COMMA  »  0 
NEWlIN  «  0 


HOD 
(COLON 
LC1 
H12 
H10 
HU 


TEST  FOR  NflN-CONT  1 GUOUS  LC 
300  IF  (LC 1  .NE.  LC I  GO  TO  10Q 
TEST  FOR  FIRST  NUMBER,  WHICH  NEEOS  NO  COMMA 
400  IF  (ICOMMA  .EO.  01  GO  TO  500 
400  COMMA  TO  LINE 

ALINE (H)  =  HOB 

M  M  ,  l 

400  ONE  BYTE  flF  CUOE 

500  (CCMM4  »  1 

ALINE  I  Ml  *  ICULON 
M  »  M  ♦  1 
L  *  l  »  I 

ALINE (MJ  -  CODE ( L 1 
LC l  *  LC1  ♦  l 
K  »  X  »  1 
M  ,  M  ♦  I 

TEST  FP®  END  rF  CPQE  STRING  4N0  FOR  FILLED  LINE 


IF  (L  . CQ. 
IF  (X  .NF. 
I  SPLIT  =  I 


•I8TTESI  GD  in  10 
is  I  r.n  to  add 


non 


89 


(.n  rn  too 

600  MAX  -  M  -  1 

W» 1 TE  17,110) 
RETURN 
ENO 


Ml  INE  1 1 )  .  MI. MAX) 


cccccccr.  cccr.crccccccccccccccccccr.cccccctr.cccr.ccccecr.r.ccccccccccccccccc 

CCCCC  FORTRAN  SUBROUTINE,  TITLE  s  LOOMEM  CCCCCC 

cccccccrcccrccccccrtccccccccccccccccccccccccccccccccccccccccctxccccccc 

subroutine  lcdmem  (jn.ji.j2,*) 

DIMENSION  JNIO) 

OATA  IfcOS.ICOM  /  f 

COMMON  /MOLES/  SUI 7 , 1 5 ) , SI I  3 , 1 S > ,L 8  1 4 , 250 > , C L I  4 ) , 

*  NSU,N$L,N18,NCL,NP,N$T,NSY,NPSAVE,MAXP,PI  1) 

INTEGFP  SV,SU,Sl,CL,P,AI21l 

COMMON  /WORK/  SVI5000), 18(250), )NB I  250 > ,NS V. N1 T . NT R 

COMMON  /OAT  A/ I E.HOt , H02 , HO  3 , H04 ,H05 ,H06 ,H0 7 , HOB , H09 , HIO .HI 1 ,H12, 

1  H2I .  H22 ,H23,H24,H3 1 . H32 , H4 1 ,H42 , M4 3 , H44 ,H 51 .H52 ,H53. 

2  H54.H55.H61 ,H62 ,H6 3 ,H64 ,H6 5 , H66 , H6 7 , H68 , H69.H70, H71 

c  1  ,HT2 

INTEGER  HOI ,H02,H03,H04,H05.H06,H07,H08,H09,  HIO, HI l  ,H12. 

*  H2t , H2?,  H7 3, H24, H3 l, H 32, H4 1, H4 2, H4 3. H4  4.H51.H52. 

*  H53,HS4,H55,H6I .H6 7 . H63 . H64 , H65 , H66. H67 , H6R.H69 , 

*  H70,H7I,M72 

10  READ  I 2,ll,ENO=600O)  A 
U  FORMAT I  A  l , l9A4,A3| 

20  MR  I TE  16,71)  A 
71  FORMA  T  I  •  • .Al.19A4.A3l 

IF  (A(l)  .NE  .  M011  RETURN 
(|All  SEPTUM). IR. 18. 1NR.N) 

40  IF  (I.GE.NI  GO  TO  10 

IF  I  I B( 1 )  .EO.  H08)  I  ’  1  ♦  l 
IF  I JN81 JI.NE.l)  GO  TO  4000 
JN(7U  I8f  (1 

MS-0 


CALL  FNAMEI JN,MS,t4100) 
IF  TjNIU.NE.il  GO  TO  5 
GO  TO  4000 


50 


MEMORY 


IT 

60  !f 
J2  ■ 
IF 

J7* 
Ml 
TO  IF 
I  »  I 

GO 

RO  JU 
1*' 
IF 
J  7“ 
I  -  I 
90  MA 


IBI  I 

TO  8 


UNI  11  ,NE.  1  -OP . 

I  1  NR I  1 ♦/ I .EQ.2)  GO  TO  80 
<J1  -LT.  0)  GC  TO  4000 
I  I fl I  I ♦ 7 )  -NE.  HI  2 )  GO  TO  4000 

?IN8( I *31 .NE.2I  GO  TO  70 
IRI  M3  1 
♦  1 

IIRIM31  -NE.  HID)  GO  TO  4000 

♦  3 

Tn  »o 
III  M7) 

♦  1 

I  I  'Ll  M  71  -NE  .  Him  GO  Tn  60 

J1 

*7 

-  IEOS 


HI  .NE.  H09)  GO  TO  *100 


90 


100  IF  II I*2).GT.N)  GO  TO  10 

IF  IIHIIHI  .Nf.  1441  GO  TO  4000 
IF  I  INBti*2>.NE.2)  GO  TO  110 
$V(NSV*ll=-l01 
SVINSV*2)=JNt  3) 

SVINSVO  *0 

SV(NSV*4l*tMt*2l 

5VINSV*5I=JN(3) 

SV<NSV*6l*Jl»JNI  3 ) 4 JN 1 4  I 
NSV=NSV  *6 
Jl=l*Jt 
1*1*2 
14**  ICC1H 

IF  (J2.F0.0I  GO  TO  100 
IF  IJ1.LF.J2)  GO  TO  100 
110  1*1*2 

GO  TO  40 

4000  C  4LL  ERROR  t  IE  •  1 >42,55000) 

4100  C41L  ERROR  I TE  »2»42*t 5000) 

5000  RETURN  1 
4000  RE  TURN 
10000  STOP 
FNO 


APPENDIX  D 


PREPROCESSOR  ASSEMBLY  LANGUAGE  ROUTINES 
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r 


9  i 


■K 

clb'Cpi 

2040' 

nr. 

f • 2=4' 

uc 

CLR'CPO 

3050' 

<JC 

F'228’ 

oc 

CLO'Ci 

5050 ' 

nr. 

F • ?04 ' 

tie 

C 18 '044 

100  O' 

or 

F  •  59' 

nc 

CU8'0A0 

1320' 

Or 

r  ">• 

oc 

CL8'08 

PI  ' 

nc 

F'  3' 

oc 

cls'Oop 

1210* 

nc 

F  1  S' 

oc 

cis'ncx 

1320' 

nc 

F'li* 

oc 

CLfl'OI 

1000' 

oc 

F '  ?  43 ' 

oc 

CL8'0$ 

PI  * 

oc 

F '  4 ' 

nc 

rCB'DM 

PI  ' 

nc 

F  '  5  • 

oc 

CLS'El 

1000' 

uc 

F  ’  2  5  1 ' 

oc 

c 1 8*  End 

PI  » 

nc 

F'fe' 

nc 

CLS'EaU 

PI  • 

oc 

F»  7' 

nc 

CL8'HLT 

o 

O 

rj 

nc 

F*  US' 

oc 

CL0'  IN 

2040' 

nc 

fmoi 

oc 

CL8' INR 

1210* 

oc 

F'  4* 

oc 

CL0' I  NX 

1320* 

nc 

F  «  3' 

oc 

CL  8' JC 

3050' 

or. 

F  »  2  1 8  ' 

nc 

C  L  8 • JM 

3050* 

oc 

F  •  2  50  ’ 

nr 

C LI' JHP 

3050' 

nr. 

F • 105' 

OC 

CL  8 '  JNC 

3050' 

or 

F  '  2 10* 

OC 

CL  8'  JM l 

3050' 

oc 

F' 104* 

oc 

018'  JP 

3050' 

oc 

F' 242' 

oc 

CL8' JPE 

3050' 

nr. 

F  •  7  34 ' 

uc 

CL  8'  JPQ 

3050' 

oc 

t  '?24' 

nr. 

cl  8*  jz 

3050* 

oc 

F ' 202' 

oc 

CL  3 '  LO  A 

3050' 

nr. 

F  *  8  3  * 

nc 

CL8'L0AX1430* 

nr 

F  •  10' 

nr 

C  L  l hi n  • 

uc 

r  •  4  /  • 

04 


IK 

C  l  8 '  l  X  1 

1328* 

DC 

FT 

DC 

Clfl'xnv 

1811' 

OC 

F  •  *4' 

DC 

CLR'IVf 

221  A* 

DC 

F  <6  • 

DC 

CIS'NUP 

1000  • 

OC 

F  •  0  1 

OC 

cc  8  •  om 

1110* 

OC 

F'l  1b' 

ix. 

Cl  8*  CPF, 

PI  • 

DC 

F'R' 

OC 

CLR'GRI 

20*0' 

OC 

F'286' 

OC 

cls'out 

2080* 

OC 

F  •  2  1 1  • 

OC 

C  L  8 • PC  HL 1 OOO 1 

OC 

F ' ?33* 

OC 

CIS* POP 

1320' 

OC 

F'  101' 

OC 

CL8' PUSH  1120' 

OC 

F* 107' 

OC 

CLS'RAl 

1000' 

OC 

F'23* 

OC 

CLB'RAR 

1000' 

OC 

F'  31' 

DC 

Cl  8' PC 

1000' 

OC 

F<  716' 

or 

CLR'RET 

1000* 

OC 

F ' 20 1  ' 

OC 

CL8' RI H 

1000' 

OC 

F  •  3  7  ' 

tooo« 

oc 

CL8 '  PLC 

DC 

F'  7' 

or 

CL8'R<4 

I000» 

OC 

F  '  2  0  8  ' 

or 

CLB'RNC 

1000' 

DC 

F ' 208 1 

oc 

CL8'RN2 

1000* 

oc 

F* 102* 

oc 

CL  8*  RP 

1000' 

oc 

F  <2'>0’ 

oc 

CLB'RPF 

1000' 

oc 

F '  2  32  ' 

oc 

CLR'RPO 

1000' 

nc 

F  ■  224  • 

oc 

CL  8 1 R  RC 

1000' 

oc 

F'  IS' 

oc 

CLS'RST 

PI  • 

oc 

F  •  0  * 

nr 

Cl  8 '  R  Z 

1000' 

oc 

F '200' 

OC 

CIS' SOR 

1110* 

nr 

F 1  15  2' 

DC 

CL  S' S8  I 

1080' 

oc 

F  '  2  7  2  ' 

or 

Cl«' SHLD^OSO' 

or 

FMS* 

or 

CM*S|M 

1  mn  • 

•>r 

f  •  49* 

45 


or  ci  «•  spt'i  toon* 

nr  r  •  -><,')  • 

OC  CIR’STA  HI  *5  0  • 

nr  fso’ 

OC  CLB’STAXIAIO’ 

OC  F • ?  • 

or  clr’stc  iooo* 

OC  F  •  A  5  • 

OC  CLB’SUR  I  1 10 • 

or  F  *  l  A  ' 

*ir.  cis'sm  ?cko' 

OC  F'MV 

or  clr' xcho. toon* 

OC  F*?JV 

or  clb**pa  mo* 

oc  r*  i6S* 

OC  CLH’XBI  ?040> 

OC  F*->18* 

oc  cis*  *thl  iooo* 

OC  F  *  221 ’ 

ENO  rou  * 

F  NO  c  on  A  so 

/* 

//STER6  EXEC  AjMFC.RARMs’  NC’OECK  » LO AD* 
//ASM. SCSI  I  R  00  DSN  =  1  E  1  7  0. MACL  I  B  vO  I  SP  - 


in.  it  3i  in  tv  tv  ivjm-lE170.MACLItttQ!$PBSHR 

n  oo  dsn^sysi .maci ie,otsn=SHP 

//ASM. SY$PR (NT  DO  dummy 

//AS”. SYSCO  00  OSN  =  t,LOPJFCT  ,0 l SP’ l MOO, P A S S I 
//ASM. SY5IN  00  • 

•»»•»*»♦♦*  ASSEMBLER  SUBROUTINE.  TITLE  :  LABLST  *»,»*.»*♦*.» 

•«*»»**»•*«*»«**•  **•*•**♦*»»•***•♦* 
LAB*  NT  C  SEC  I 

ENTRY  *  A9LtN,PR|NST»LA8Ft*(*l  ABOUT 

AESOR  EQUATE  REGISTERS 

USING  A.RIS  ESTABLISH  ADDRESSABILITY 

♦  ROUTINE  FOR  °LAClNG  LABELS  ANO  VALUES  INTO  SYMBOL  TABLE 
«  LABI  IN  (AI/I.LC,  I  ERR  1  » 

LABLIN  EOU  * 


LABI  IN  (AI/I.LC,  I  ERR  1  » 


STM  RU,Rt?,:?|RlB) 

LA  »l?,0 

L  R  ?  «  0 1  R  l  I 

MVC  SYM9IN(BI.0I»?> 

TEST  FTR  ALPHABETIC  FIRST  CHARACTER 

CL  I  SYMBIN.C’A* 

PL  ERR INV 

CL  1  SYMBlN.Cm 

BN  H  F|UU« 

R  ERR INV 

LOOP  TO  1 0 AO  CHARACTERS  INTO  SYMBOL 


SAVE  GENFRAi  REGISTERS 
ZERO  ERROR  COOF 
LOAO  AOOR  OF  LABEL 
LOAD  IABEI  TO  SYMRIN 


FIRST  CHAOACTFR  A? 

INVALID  IF  ICW 

FIRST  CHARACTER  ZT 

PROCEED  T C  FILLUR  IF  NOT  HIGH 

ELSE  CHAR  INVALID 


FILLUP  MVC  SYMBOL  I  1  I.  SYMRIN  LOAD  FIRST  CHAR  OF  SNMBlN 

MVC  SYMBOL  »l  I  77  ,»!  ANUS  FILL  »CS7  tflTlt  BLANKS 

LA  »A,0  ZFRO  POINTER 

I  A  RR, |  SET  INLRFMINI 


F  ILCOP 


CUT 


l  A 

RR.S 

SET  LIMIT  INDEX 

L  A 

os,  0 

ZERO  RS 

If 

RS.  SYMBINHIR4) 

INSERT  CHAR  FROM  SYMBIN 

C 

RS--F  *  l  22* 

CHARACTFR  :? 

BE 

nut 

END  OE  LABEL 

BXH 

R4  ,R  8  ,  ER  L  ONG 

IF  OVER  6  CHAR,  ERROR  L! 

STC 

RS, SYMBOL |R4 J 

STORE  CHAR  IN  SYMBOL 

B 

E I  LOOP 

GET  NEXT  CHARACTER 

LABEL 

ANO  VAl  UF  IN  STABLE 

EOU 

* 

L 

R6, POINTR 

LOAO  INDEX  10  STABLE 

l  A 

R7 , ST  ABLE 

LOAO  AOOR  OF  STAPLE 

AR 

R  Z ,  0  6 

FORM  TABLE  AOOR  E  S  S 

MVC 

OIB.RT)  ,  SYM8CL 

MOVE  SYMBOL  10  STABLE 

EA 

07,8(0 Zl 

INCREMENT  POSITION 

L 

0  I,  4(R  1  1 

LOAD  AODR  OF  1C 

MVC 

0(8, RT 1, 0(031 

LOAO  LC  INTO  STABLE 

LA 

R6.12IR6I 

ADJUST  INDEX 

SE 

06, POINTR 

STORE  POINTER 

B 

LEAVE 

LEAVE  ROUTINE 

routine  ro  seno  stable  to  main 


prinst 


mov i no 


USING 

EOU 

SIM 

LA 

FOll 

L 

MVC 

L 

L 

ST 

8 


♦.RIS 

R14.R12,  IZIRIS) 

R  12,0 

°2 , 0( R  1 1 

0IZ4CJ.R2J,  STAfllf 

°2 , 41 R  1 1 

RJ. POINTR 

PT.0IR2I 

LEAVE 


STORAGE  FOR  PRINTING 

ESTABLISH  ADOPESSABILITY 


SAVE  GENERAL  REGISTERS 
ZERO  ERROR  CODE 


LOAD  ADOR  OF  STABLE  MAIN  PROG 

MOVE  ENTIRE  TABLE 

LOAD  ADOR  OF  IPOlNT 

LOAD  POINTR 

PASS  POINTR  AS  IPOINT 


ROUTINE  TO  PROCESS  EQU  PSUEDO-UP 


LABFf  If 


USING 

EOU 

STM 

LA 

LA 

L 

S 

AO 

L 

L 

l  A 
ST 
B 


*  .  R  l  S 

®l4,Rl?,t2IRn) 
R  1  2 , 0 
R4,  STABLE 
04, P01NTP 
H,=F'  12* 

0  4 , 06 
02,4(01) 
02,0(021 
»4, 9(041 
02.0104) 

l  r  Ave 


ESTABLISH  ADDR E S SAB !L I  TV 


SAVE  GENERAL  REGISTERS 
ZERO  ERROR  CPOE 
LOAD  AOOR  OF  STABLE 
LOAD  POINTR  TO  R 6 
OQINT  TC  LAST  TABLE  ENTRY 
FORM  ADDR  OF  ELEMENT 
LOAD  AOOR  VALUF 
LUAO  VALUE 

INCREMENT  POINTR  TO  LC  SPACE 
LOAO  REVISED  VALUE 
AND  LEAVE  ROUTINE 


ROUTINE  TO  Eton  VALUE  EOCM  SYMBOLS  USED 

P.OJS  ESTABLISH  aodr  essability 


US  ING 

LABOUT  FOU 
RIM 
I  A 

I 


Rl  4  ,0. 12,  1  2  IR  HI 
0  12,0 
0  2,0(01  I 


SAVE  GENEOAL  REGISTERS 
ZERO  root)R  CODE 
LOAO  4000  L4RVUM 


LA 

P  4 , stable 

L 

R5.PCINTP 

C 

BE 

=  5,*F"V 

EOft  INV 

AR 

PS  ,R4 

SEEK 

EQU 

* 

CLC 

0IS.R21  ,0I«4) 

BE 

FINO 

L  A 

R 4 , 12IR  41 

CP 

R4,R1 

BF 

ERR  INV 

8 

SEEK 

FIND 

FOU 

» 

l  A 

R"»,  81 R  4 

L 

OS, 0IR4 

L 

P2.4IRI 

ST 

RS  ,  01  R  2 

0 

B 

LEAVE 

* 

• 

HAN0L1NG  ROUTINES 

ERR  1 NV 

FOU 

* 

L  A 

R 1 2 , 1 

B 

LFAVE 

ERLONG 

EQU 

* 

L  A 

812,2 

*  LOAD  FRROR  COOE  ANO  l EAVE  ROUtINE 

* 


LOAD  AOOR  (IF  STAPLE 

LOAD  UNIT  OF  STABLE  (NOE* 

»OlNTR  =  0  ? 

IF  YES.  GO  TO  ERR INV 
SET  LIMIT  AOORESS 


COMPARE  TO  STABLE  ENTRY 
IF  EQUAL,  GO  TO  F [NO 
ELSE  INCREMENT  4DOR 


COMPARE  ADOR  TO  L [MIT 


IF  EQUAL,  GO  TO  INVALID 
ELSE  BRANCH  BACK 


INCREMENT  TO  LC  SPACE 
LOAQ  LC 

LQAO  A OOR  NUMV4L 
PASS  SACK  NUMVAL 
AND  LEAVE  ROUTINE 


SET  ERROR  COOE  ’  1 
LEAVE  ROUTINE 

SET  ERROR  COOE  *  2 


SYMBOL 
SYNB IN 
°0 IN  TR 
BL  SNK  S 
STABLE 


EOU  ♦ 

L  RB.8 

ST  RlS, 

LM  Rl4, 

HR  R  l  A 

OS  10 

OS  10 

nr.  f  « o 1 

DC  CL  B  * 

DC  240C1 

i.TORG 

ENO  LABLST 


R6,8tRll 
R12.0IR61 
Rl4,Rl2,l2(RlSl 
R  l  4 
10 
10 
F'O' 

CL  8  ’  * 

?40Cl  1 '  • 


LOAD  A OOR  OF  ERROR  CODE 
PASS  BACK  ERROR  CODE 
RESTORE  general  registers 
RETURN 


SPACE  FOR  20  ENTIRES  IN  STABLE 


//STE  °r  E*EC  AS‘*FC  ,PARH  =  9  NOCECK , LOAD* 

//ASM.SYSLIR  no  OSN=tElTO.MACLlB,OISP=SHR 
//  00  OSN=SYSl.NACLtP.0ISP*SHR 

//ASM. SYSPR IMT  00  DUMMY 

//ASM. SYSCO  00  nSN^f.CnBJFCT,OlSP'lMCD,OA55) 

//ASM. SY SIN  00  ♦ 

«*•***•»«*  ASSEMBLER  SUBROUTINE,  title  :  PCOOE 

»»«**•••*»*«»♦•**•  »*»*«**« 


PC  COE 

BEGIN 

csect 

tO  PEN 

F  }  U 

* 

EQUATE  REGISTERS 

IBM  OPENING  C.nNVFNT  IONS 

L  i 

8  10,0 

ZERO  OFFSET 

La 

R  l  2 ,0 

zero  errcr  COOE 

0  l  7  ,  L  E  N 

ZERO  LINCR 

l 

i(R  I  I 

R  2  IS  PASS  A OOR 

'r*8 


L 

»2,0(»ZI 

L 

R  5  ,  A 1  R  1  j 

L 

bn,  r\{p  1 1 

*  ERROR 

TFST 

AND  OFFSET  OF T E 

TEST  I 

Cl. I 

OIRJ) .C'Z* 

RNH 

TEST* 

FRROR 1 

LA 

R12.1 

B 

LEAVE 

TEST  2 

Cl  1 

OCBSI.C'O* 

BN  H 

TEST  J 

LA 

B 

RIO, 684 

SEARCH 

TEST? 

CL  I 

0IR3)  iC'G* 

BNH 

1  E  ST* 

LA 

RIO, 360 

B 

SEARCH 

TESTA 

CL  I 

HI. 

0  (  R  3  1 ,  C  1  A  • 

erropI 

*  SEARCH  LOOP 

SEARCH 

LA 

pa.  30 

SLOOP 

L 

r. 

RB. SIR  1  1 
R6.0(R10,R5I 

BE 

EOUNO 

HL 

NOTENO 

LA 

RIO, 12IRI0I 

R*. SLOOP 

RC  T 

NOTENO 

LA 

P12.2 

B 

LEAVE 

EOUNO 

ir 

• 

RS.RIO 

CL  J 

RN6 

R5,4(R5I 

OCRS), CP* 
ONEPAS 

L 

R12.MR51 

P5.1IPSI 

LA 

mvc 

1  ENfJI  l  1  •  0 1 R  5  1 

Nt 

L EN ,3 , X  f  OF  1 

L 

R6.LEN 

L 

R  *  ,  1 2 1  R  U 

ST 

R6,0(RA) 

R 

LEAVE 

PASS  ONE  PROCESSING 


R?  tS  PASS 

R3  IS  SEARCH  PCOOE  ADOR 
R 6  IS  SEAPCH  PCOOE 


pcode  greater  than  2? 

IE  NOT.  CO  TO  TEST? 

IF  YES,  ERROR  CODE  »  I 

LEAVE  ROUTINE 

PCOOE  GREATER  THAN  0? 

IF  NOT,  GO  TO  TEST3 
IF  YES.SEARCH  BEGINS  AT  Q 
GO  TO  SEARCH 
PCOOE  GREATER  THAN  G? 

IF  NOT,  GO  TO  TESTA 
IF  TES,  SEARCH  BEGINS  AT  G 
GO  TO  SEARCH 
PCODE  GREATER  THAN  A ? 

IF  NOT,  ERROR  CTOE  =1 


UNIT  OF  BO  PROBES 

load  aoor  of  ptable 
compare  ENTRY  TO  PCCjE  TABLE 
IF  EQUAL  ,  GO  TO  FOUND 
IF  SMALLER,  BRANCH  OUT 
IF  NOT,  INCREMENT  POINTER 
B RANCH  ON  COUNT  TO  SLOOP 
IF  NOT  FOUND,  SET  ERROR  CODE 
ANO  LEAVE  ROUTINE 

SUM  BASE  AND  INDEX 

MOVE  TO  LENGTH  RYTE 

TEST  FOR  PSUEDO-OP 

IF  NOT  PSUEDO-OP ,  GO  TO  ONEPAS 

SET  ERROR  CODE  FOR  PSUEDO-OP 

MOVE  TO  MOO  BYTE 

MOVE  LENGTH  TO  IEN 

CONVERT  TO  BINARY 

LOAD  LEN  TO  R6 

LOAD  AOOR  OF  L I NC R 

PASS  BACK  AS  IINCR 

AND  LEAVE  POUUNE 


CNEPAS 

LOU 

• 

MVC 

1  EN.3I  l  ),0<»5I 

Mn VE  LENGTH  TO  LEN 

Nl 

IEN»3,X*0F« 

CONVERT  TO  BINARY 

L 

RN.LEN 

LOAD  LEN  TO  R6 

L 

R*.  12  t FI  II 
R6.0(R*t 

LO AO  AOOR  OF  LINCR 

ST 

PASS  BACA  AS  LINCP 

C 

P2,-F*’' 

IF  P A S  Ss 2 

BE 

twopas 

GO  TO  PASS  T HO  HANDLING 

$ 

R 

l  FA  VE 

ELSE  LEAVE  ROUTINE 

•  PASS 

I  HO 

PROCESSING 

«  “ASS 

>*r  < 

BCD,  nPER l ,  OPfp?, 

ANO  NIJMCOO 

r. 


>)*) 


TWCPAS 

EOU 

• 

MOO 

FQU 

• 

LA 

RS,  MRS) 

ADVANCE  POINTER  to  mod 

NVC 

LENOl  1  i.oirsi 

MOVE  MOO  TO  LEN 

N I 

LEN*  3 , X  *0F • 

CONVER I  TO  BINARY 

1 

R6.LEN 

LCAO  MCO 

L 

R  ,  201 R  1 1 

LOAO  AOOR  OF  MOO 

ST 

ON  ,01  R4  1 

PASS  RACK  MOO 

0PER1 

FQU 

* 

LA 

PS, 1 (RSI 

ADVANCE  POINTER  TO  OPERt 

MVC 

LEN*SI  1  I.0IR5I 

LOAO  OPER  1  INTO  LFN 

N  I 

LEN*3,Y'0F  • 

CONVERT  TO  A  I  NARY 

l 

»6,  LEN 

LOAD  OPE R 1 

L 

04*24(011. 

LOAO  AOOR  ()“ER  1 

ST 

R6.0IR4I 

PASS  RACK  OPER 1 

0PER2 

E9U 

• 

LA 

RS,  1 l»5) 

ADVANCE  POINTER  TO  OPER? 

MVC 

IEN*3<  1  l,0|R5) 

MOVE  OPER  2  TO  LEN 

Nl 

LEN*3,X*0F' 

RS. LEN 

CONVERT  TO  BINARY 

L 

LOAO  OPER 2 

L 

R4.28IRII 

LOAO  AOOR  OPER 2 

ST 

R6.0IR4) 

PASS  BACK  OPER  2 

NIJMC  DO 

EOU 

« 

LA 

R  5  •  1 1 R  5 1 

ADVANCE  POINTER  TO  NUMCOO 

L 

R6 . 01  R  S  1 

LOAO  NUMCOO 

L 

R*. 32IR1) 

LOAO  AOOR  NUMCOO 

ST 

R6.0IR4) 

PASS  BACK  NUMCOO 

LEAVE 

L 

ST 

96,  16IRII 

R12.0IP6) 

LOAO  RETURN  ADDR 

PASS  BACK  ERROR  COOE 

ENO 

EOU 

• 

1CL0SF 

IBM  CLOSING  CONVENTIONS 

LEN 

OS 

IF 

ENO 

pcooe 

/* 

//STEPS  exec  A$MFC  .PARM.'NQOECK.La&O* 

//ASM.SYSlIB  00  USN^IElTO.MAr.uS.OISP^SHR 
//  00  OSN=SYSl.MACLlB,Df  $P-<SHR 

//asm.  syspp  in  r  on  tommy 

//ASM. SYSCO  00  OSN^r.f.COJECT,OISP>(MOO,PASSI 

//ASM.SYSIN  00  • 

••••»•»*•••»**»*«*•**•»**«•*»*****»**••***••*»•**•**•»**»•»•»»»••••••• 

»*•*•«•»*•  ASSEMBLER  SUBROUTINE,  TITLE  :  STRING  ••**.*»«*»* 

•*••»**««*  CHL  STRING  IITYPE, PASS, A(fc|, NUMCP$, IERCOO, COOE)  •»*•* 

- ‘ - 


STRING 


REGIN 


CSECT 
f  FOUR 

tOPFN 

rou 

LA 
ST 


R12.0 

Rl2,E9COOE 


SET  LIMIT  RY  TYPE 


EOUATE  REGISTERS 

IBM  OPENING  CONVENTIONS 

EERO  ERROR  COOE 

ZERO  ERROR  CODE  FOR  VAtREO 


l 

=  2 , niR  1 1 

LOAD  1  TYPE  AOOR 

l 

R  2 , 0  (  »  2  > 

LOAO  l TYPE 

1  9 

oi,  R2 

STORE  ITYPF  IN  R» 

LA 

03,16 

LOAO  LIMIT  TO  03 

S  T 

9  3. LIMIT 

•  STO° E  LIMIT 

r. 

o?  ,  =f  •  1  ' 

ITYPE  =  I  7 

TFSUT 

IF  YES,  GO  TO  TESTIT 

ELSE  USE  l  IMIT  F'19  WOOnS, 

l  A 

P  3  ,  R 

ST 

’  3  .1  INI  1 

LTI'OF  A  S  1  I**M 

TYPE  ? 


1(H) 


«  INITIALI2F  BY  PASS  CODE 

TE$T|r  fQU  « 

l  R?,BjPn 

1  PI. '.I«l  I 

L  RT.0IR31 

C  RT^F'I* 

BE  TST1NV 

L  R10,20(Rtr 

LA  Rll.O 

sr  R2.AD0R0P 

•  TEST  FIRST  CHARACTER  \ 

rsTiNv  eou  • 

Cl  I  OIR?) .C4  1 

BF  EPRINV 

CLI  0(R2). £,•••• 

RE  DUO  TES 

CLI  OIR2)«C'** 

FTC  ERR  INV 

LA  PA. 1 

•  MAIN  TEST  LOOP 

COMCNT  FOU  * 

CLI  OIR21.C*  * 

HE  (JUNE 

CL!  OIR21.C'.4 

BE  U°ONE 

B  INCR 

•  INC  PE ME NT  ANO  LOAD  ON  PASS  i 


LOAD  AOOA  OF  POSITION 
LOAD  A  DOR  PASS 
LOAD  PASS 
PASS  *  I  ? 

IF  SO,  GO  TO  VALIDITY  TEST 
ELSE  LOAD  ADOR  COOE 
ANO  LOAO  INDEX  TO  CUOE 
STORE  POSITION  IN  AODROP 


FIRST  CHAR  BLANK  ? 

if  res,  operand  invalid 
rtosr  char  •  ? 

GO  TO  STRING  PROCESSING 
FIRST  CHAR  ,  ? 

IF  YES,  OPERAND  INVALID 
SET  COUNT  TO  I 


CHARACTER  BLANK  > 

IF  YES.  GO  TO  OONE 
CHARACTER  ,  7 
IF  TES,  ADO  ONE  OPERAND 
COUNT  NEXT  OPERANO 


SU80l)t 


LA  PA,l|RAI  INCREMENT  CP 

C  R4, LIMIT  LONGER  THAN 

BH  ERLUNG  IF  TES,  GO  T 

C  R 1, =F 1  I  •  PASS  *  1  7 

RE  INCR  IF  YES,  GO  T 

EOU  • 

LR  RT.Rl  ELSE  SAVE  R 1 

TALI  V AIRE O.l AOOROP.NUNVAL.ERCOOEI ,  VL 
IR  °  1 ,  P  7  RESTORE  R1 


INCREMENT  OPERANDS 
LONGER  than  limit 
if  TES,  GO  TO  Error  long 
PASS  *  I  7 
IF  YES,  GO  TO  INCR 


l  R6.ERCU0E 

C  R  ft ,  =F  •  0* 

8F  BASRA* 

C  76,=F'l' 

RE  ER’INV 

8  FRIONG 

PASS  ONE  ANO  TNT  PYTE  VALUES  BACK 
1AK  FOU  • 

L  76 , NUMV  AL 

C  R  9  ,  =F  1  2  1 

BE  THORYT 

C  °6,-F'2SB' 

BH  ERRINV 

ST  R6,OIR11,RIOI 
LA  °  t  i  ,  4  I  R  1  I  I 

LA  B2 .  I ( 0  2  I 

ST  PP.AOPOOP 

G  "P^FM1 

BF  HFTNf  2 

R  rnorNT 

ATT  FDll  * 


LOAD  ERROR  CODE 
ERCODE  =  0  ? 

IF  YFS,  GO  TO  PASRAK 
EL  SF  ERCCDE  *  1  7 
OPERANO  INVALID 
OPERAND  LONG 


I  TYPE  =  27 

GO  TO  TWOBYT  LOADING 

VALUE  >  2 SS 

IF  YFS,  OPERAND  INVALUD 
ELSE  PASS  BACK  AS  COOE 
increment  inoex 

INCREMENT  POSITION 
STORE  POSITION  IN  AODROP 
LAST  OP  FLAG  -  l  7 
IF  YES,  GO  TO  DONER 
CONTINUE 


G  RG,=F' ISSS76'  OVFR  TWO  BYTES? 

PL  ,B|  IT  IF  l  OH,  GO  TO  SPl  I T 
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IF 

IF 

IF 

IF 

IF 
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LOAO  AOOR  ERCODE 
PASS  BACK  ERROR  QCOE 
IBM  CLOSING  CONVENTIONS 


// S  TEP  9  EXEC  ASNFC.PARM='NOOECR1LOAO* 
//ASM.SYSLtfl  00  OSN=  IEL70.MACL  I8,DISP*SHR 
//  00  OSN=SVSl.NACLlfl.OISP’SHR 

//ASM.SYSPP  INT  00  DUMMY 

//ASM. SYSCO  00  OSN=tr.nflJECT,Ot$P«INnO,PASSI 
//ASM.SYSIN  00  ♦ 


EMBLER  SUBROUTINE.  TITLE  I  OPERAN  **»»**♦*•**• 

»****»•»  i***?*i ••»»«{??!• il?«« '»••••• 


••****»♦*«  ASSEMBLER  SUBROUTINE. 
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RS.O 

LA 

R",  1 

LA 
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EQUATE  REGISTERS 
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ZERO  ERROR  CODE 

2ER0  ERROR  CODE  FOR  VALREO 

LOAD  A DOR  OF  MOO 

LOAD  MOO 

MOO  *  0  T 

IF  YES,  CC  TO  OATA 
SET  MODS  PASS  FLAG  -  I 
LOAD  A DDR  OPERANDS 


BLANK  OUT  REG!  ST  AREA 
ZERO  I  NOE  * 

ZERO  R5 

SET  I NC  R  E  MFNT 

SE  T  LIMIT 

f  [AST  Cl  HR  blank? 

IF  YES,  CHAP  INVALID 

INSERT  CHAR  INTO  RS 
CHAP  =  ,  ? 

IF  SO,  »EAO  IS  FINISHED 
CHAR  =  BLANK? 

if  yes,  dune 

OVER  3  CHAR  ,  rrc  LONG 
STORE  IN  REGIST 
OFT  N  F  <  T  CHAR 

UPDATE  OPERAND  LOCATION 
MOVE  PAST  DFLIMITEP 
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USE  UST2 
00  TO  SEARCH 
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* 
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AMO  LEAVE  ROUTINE 
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EOU 

• 

L 

R4, NUMVAL 
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BE 
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TESTOP 
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RZ,  161 R  1 1 
RZ, 01 R  Z I 
R  Z  t -f  *  0 ' 
LEAVE 
R3.2 

R  Z  ,  =  F  •  A  ’ 
SUB  CUT 
R3,  3 
subout 


LOAD  SECONO  ONE  BTTE  OPERANO 


EOU 
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ST 
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RA.NUHVAl 
Rli.ZMRII 
RA.  0(  Rill 
LEAVE 


ERROR  HANDLING  ROUTINES 


ERR  1 N V 

EOU 
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LA 

RI2.1 

B 

LEAVE 

ERLONG 

EOU 

• 
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RIZ.Z 

LEAVE 

EOU 

* 

L 

RI1.1ZIR1) 

ST 

RIZ.OIR  111 

tCLOSE 

AOOROP 

US 

IF 

NUMVAL 

OS 

IF 

ERCODE 

OS 

IF 

SPACE 

OS 

IF 
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OS 

IF 

BLANKS 
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REGISTER  OPTRANO  lists 


LI  ST  I 


EOU  » 

U'.  CL  A' A 
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nr.  c  l  >  •  b 

nc  E>o' 

nr  r.lA'r 


El  AG  REGISTER  •=  3  ? 

IF  NOT,  GO  10  TESTOP 
IF  VES,  LCAO  NVAl  P01NTEP 
ANO  GO  TO  VALCUT 

LOAD  NUMVAL 

NUMVAL  OVER  ONE  BYTE? 

IT  YES,  OPERAND  IS  TOO  LONG 
FLAG  REGISTER  =  2  ? 

IE  VES.  GO  TO  OPNUMZ 
LOAD  ADOR  NVAH 
PASS  BAG*  NVAL I 


LOAD  AODR  OPERZ 
LOAD  OPER2 
OPERZ  =  0  ? 

IF  YES,  LEAVE  ROUTINE 
SET  FLAG  REGISTER  TO  I 
OPER2  -  A  ? 

IF  EQUAL,  GO  TO  SUBOUT 
SET  FLAG  REGISTER  »  3 
GO  TO  SUBOUT 


LOAO  NUMVAL 
LOAD  ADDR  NVAL? 
PASS  BACK  NVAL? 
AND  LEAVE  ROUTINE 


SET  ERROR  CODE  -  1 
AND  LEAVE  ROUTINE 

SET  ERROR  CODE  *  Z 

LOAD  1ERCOD  RETURN  ADOR 

RETURN  IFRCOO 

RETURN 


I  Oh 


NUNTST 

SETUP 

INOATA 

XPR6S1 

xpres2 

DONE 

VALFNO 

AOOEXP 

SUREXP 


n(R2) ,C*A* 

ERR  INV 
OlA21,C'Z« 

NUM'ST 
RD,  6 
SF  TUP 
« 

0<R2) .C‘0* 

£BR  INV 
OIR2I ,C*9» 

ERR  INV 
R9,<> 

* 

LARNUH(<J  I,  BLANKS 

R  9 . 1 

RS,0 

R4,0 

• 

RS.OIR2I 

R5,=F«64* 

OONE 

R5,*F*107* 

OCNE 

R  5 ,  =E • 78* 

XRR  ESI 
PS,=F<q6' 

XPRES2 

RS  ■  R8, ERLONG 
RS,lA*NUN-n«41 

KblW' 

L°i‘ 

RIO, 2 

* 

R9,=F«6' 

NUMBER 
RS,  Rl 

LAB OUT, I LABNUM, NUNvAL 

Rl,R5 

B'I.ERCOOE 

7I,=F'l’ 

EPft  INV 
• 

R  2 1  HR  Z  5 
RX, EXCODE 
R7,*T '0* 

EXP  TST 
R  7  i  =  F  '  1 ' 

SUBRXP 

* 

rt.fxval 

R  7 ,  NUNVAL 
0 7 . NUNVAL 
FXP  TST 

* 

“T.fXVAl 
:>  T,  NUNVAL 


FIRST  CHAR  -  k  7 
IF  LOW,  INVALID  OPERAND 
CHAR  =  l  7 

IF  HIGH,  TEST  FOR  number 
ELSE  LOAO  NAX  CHAR  »  6 
AND  RRANCH  TO  SETUP 

CHAR  *  0  7 

IF  LOW  INVALID  OPERAND 
CHAR  ->0  7 

IF  HIGH,  INVALID  OPERANO 
ELSE  L r ao  max  char  >  <t 

FILL  SPACE  WITH  BLANKS 
SET  INCREMENT  -  1 
ZERO  R  5 
ZERO  INDEX 

GET  CHARACTER 

Char  *  blank 

IF  YE  S*  OONE 

CHAR  =  ,  7 

IF  YES,  OONE 

CHAR  *  ♦  7 

IF  YES,  GO  TO  XPR6S1 

CHAR  -  -  7 

IF  YES,  GO  TO  XP»ES2> 

IF  char  OVER  NAX,  GO  TO  ERLONG 
STORE  CHAP  IN  LABNUM 
INCREMENT  POSITION 
GET  NEXT  CHAR 

SET  EXPRESSION  COOE  =  1 
GO  TO  OONE 

SET  EXPRESSION  COOE  -  2 

OATA  IS  LABEL  7 
IF  NO,  GO  TO  NUMBER 
SAVE  «I  DURING  CALI 
.ERCODE ) ?  VI 
RESTORE  R  l 
LCAO  ERROR  CODE 
ERCODE  «  1  7 

INVALID  OR  NOT  FOUND  VIAUE 

MOVE  POINTER  TO  NEXT  OPERAND 
LOAD  EXPRES  CODE 
COOE  =07 

IF  YES,  GO  TO  FXPTST 
COOE  =  l  7 

IF  NOT,  GO  TO  SUBTRACT 

LOAO  EXPRESSION  VALUE 
ADD  NUNVAL 

STORF  RESULT  IN  NUNVAL 
GO  TO  EXPTST 

LOAO  EXVH 
SUBTRACT  NUNVAL 


I  OS 


SI 

R  T  ,  NUMVAl. 

CXPTST 

EDO 

* 

C 

R10.=F*0* 

BE 

VALT  UT 

L 

OT,  NUMVAL 

ST 

R  7, EXVAL 

R  10.EXC00E 

LBL  1ST 

ST 

B 

VAIOUT 

FQU 

« 

l 

R6. NUMVAL 

L 

RT.4IR1) 

ST 

S 

P6.0IR7I 

LEAVE 

NUMBER 

EQU 

* 

S 

CLI 

R  2  «  =F •  1 ' 

0  I R  2 ) ,C‘H* 

BE 

HE  X  IN 

CL  l 

01R2).C'0* 

OE 

OC  T  IN 

CL  I 

OIRZ  J . C 1 B • 

BE 

3  ININ 

DEC  IN 

rOU 

• 

LA 

B 

nr.  io 

CONVRT 

OCTIN 

EQU 

• 

LA 

R  7 , 8 

S 

R*,=r* !♦ 

B 

CONVRT 

BININ 

EQU 

* 

LA 

R  7 , 2 

S 

R4 , =F  •  l  • 

CONVRT 

EOU 

• 

LA 

R9  ,0 

LA 

PS,  0 

LA 

R  8 . 0 

LA 

R6.  IS 

CTLOOP 

EOU 

• 

MR 

RB.R7 

IC 

RT.LABNUMIRS) 

NP 

RT.R6 

AR 

Pq  ,H3 

LA 

PS,  |  (R5I 

BCT 

»4  .CTLOOP 

ST 

RT. NUMVAL 

1  A 

R  2  ,  1 1  R  2  1 

B 

VAL  END 

HEXIN 

nu 

• 

RT.  16 

s 

»4,  =F'  1  • 

LA 

°  5 , 0 

LA 

R  0 , 0 

L  A 

pq.n 

r»T 

RN » CHAR  IN 

h  F  X  C  V  T 

• 

MO 

Qn.o  7 

1  A 

»  I,  0 

l  A 

0  1  1 , 0 

l  A 

P5,  16 

ir. 

® 1 1 ,L  ABNUMIR A ) 

‘n  t 

°l  1  .CHAR  I  N 

STORE  RESULT  IN  NUMVAL 

EXPRESSION  CODE  «  D  7 
IE  YES,  GO  TC  V 41  OUT 
ELSEi  LOAD  NUMVAL 
STORE  IN  EXVAL 

STORE  EXPRESS  COOE  IN  EXCOOE 
GO  TO  L PL  T ST 

LOAO  NUNVAL 
LOAO  AOOR  NUNVAL 
PASS  BACK  NUNVAL 
ANO  LEAVE  ROUTINE 

POINT  R2  TO  LAST  VALID  CHAR 

LAST  CHAR  *  H  7 

IF  YES,  GO  TO  HEXIN 

LAST  CHAR  -07 

IF  YES,  GO  TO  OCTIN 

LAST  CHAR  *  B  7 

IF  YES,  GO  TO  BININ 

LOAO  MULTIPLIER 


LOAD  MULT  [PI  IER 

POINT  LIMIT  AT  last  DIGIT 

GO  TO  CONVRT 

LOAO  MULTIPLIRR 

POINT  LIMIT  AT  LAST  DIGIT 

HERO  VALUE 

ZERO  POINTER  INDEX 

ZERO  RS 

LOAD  MASK  FOR  CHAR  TO  BINARY 

MULTIPLY  BY  BASF 

LOAD  NEXT  CHAR 

CONVERT  TO  BINARY 

ADD  TO  SUM 

INCREMENT  POINTER 

DC  LOOP  PY  NUMBER  CF  DIGITS 

STOPE  VALUE  IN  NUMVAL 

“ESTORE  value  OF  R; 

GC  TC  VALFND 

LOAD  MULTIPL IER 

PdNT  LIMIT  AT  LAST  DIGIT 

Zf»0  INDFX  POINTER 

ZERO  R 9 

ZERO  VALUE 

ZERO  CHAR  IN 

MULTIPLY  BY  BASE 
ZERO  LIST  INDEX 
ZERO  R 1 l 

SET  LOOP  COUNTER  FOR  1  1ST 
LOAD  r  HAR 
STORE  CHAR 


ioloop 


HE  XVAL 


FPP  f  NV 

F'LONG 

LEAVE 
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